home *** CD-ROM | disk | FTP | other *** search
/ Day Cry / Day Cry CD.bin / oh_towns / install / install.cci < prev    next >
Text File  |  1994-09-20  |  88KB  |  3,529 lines
  1. # 1 "install.c"
  2.  
  3. # 1 "install.c"
  4. # 4 "install.h"
  5. int disp_desktop();
  6.  
  7. int syl_clear();
  8. int syl_putf(char *form);
  9. char *add_path_fn(char *path, char *fn);
  10. int tif_load(char *fn);
  11. int tiflist_disp( char **list );
  12. int mveplay(char *fn, int loop);
  13. int exprun(char *fn, char *para);
  14. int inst_help( int evNo, char *evDat, char *fn);
  15. int install_end( char *soft_name, int err );
  16.  
  17. int install_exec( char *probuf );
  18.  
  19. int item_setApl( int drv, int icon, char *ttl, char *path, char *para, int att );
  20.  
  21. char *get_inst_tool_mnu();
  22. char *get_inst_imag_mnu();
  23. char *get_inst_snd_mnu();
  24. char *get_inst_game_mnu();
  25. char *get_inst_data_mnu();
  26. char *get_inst_taro_mnu();
  27. # 19 "install.c"
  28. int DrvInst = -1;
  29. int PltNoWhite = 5;
  30. int ColBoxNormal = 0;
  31. int ColBoxInfo = 0;
  32. int ColBoxCaution = 0;
  33. int ColBoxError = 0;
  34. int ColMesh = 0;
  35.  
  36. int init();
  37. int term();
  38. int install_main();
  39. int set_debug_menu(char *mnu);
  40. # 38 "install.c"
  41. int main(int argc, char **argv)
  42. {
  43. init();
  44. install_main();
  45. term();
  46.  
  47. return (0);
  48. }
  49.  
  50. int init()
  51. {
  52. char msg[80], tmp[128];
  53. char *mnu;
  54. char *msgMenu[(1)];
  55. char *img;
  56. int winBasCol;
  57.  
  58. APL_init((0x030A),1,1);
  59. LHA_sysInit((0));
  60.  
  61.  
  62. disp_desktop();
  63. SCN_wrtPage(1);
  64. tmp[0] = 0;
  65. tmp[1] = 255;
  66. tmp[2] = 255;
  67. tmp[3] = 255;
  68. SCN_palette(0,PltNoWhite,tmp);
  69.  
  70.  
  71. SCN_wrtPage(1);
  72. winBasCol = 0;
  73.  
  74. winBasCol = (_ScnCol_though);
  75. APL_openBaseWin(winBasCol);
  76.  
  77.  
  78. SCN_wrtPage(1);
  79. sprintf(msg,"%c%c", Gaiji_ohFMTOWNS>>8, Gaiji_ohFMTOWNS&0xFF);
  80. msgMenu[0] = " INSTALL ";
  81. # 81 "install.c"
  82. APL_openTopBarMenu(Fnt16x16,msg,(_ScnColTbl[12]), (1),Fnt16x12,msgMenu,(_ScnCol_black));
  83.  
  84.  
  85. MNU_datAdd( SysMnu, 0, 'A', Fnt16x16, 0, "about_dlg" , 0, "é▒é╠âvâìâOâëâÇé╔é┬éóé─");
  86. MNU_datAdd( SysMnu, 0, 'F', Fnt16x16, 0, "dsp_freemem", 0, "âtâèü[âüâéâè" );
  87.  
  88.  
  89. mnu = AplMnu[0];
  90. MNU_datAdd( mnu, 0, 'H', Rom16x16, 0, "inst_help", "message.doc", "Éαû╛" );
  91. MNU_datAdd( mnu, 0, 0 , Rom16x16, 0, "" , 0 , (0) );
  92. MNU_mnuAdd( mnu, 0, 'A', Fnt16x16, get_inst_tool_mnu() , "âcü[âï" );
  93. MNU_mnuAdd( mnu, 0, 'I', Fnt16x16, get_inst_imag_mnu() , "ëµæ£üòô«ëµ");
  94. MNU_mnuAdd( mnu, 0, 'S', Fnt16x16, get_inst_snd_mnu() , "âTâEâôâh" );
  95. MNU_mnuAdd( mnu, 0, 'G', Fnt16x16, get_inst_game_mnu() , "âQü[âÇ" );
  96. MNU_mnuAdd( mnu, 0, 'D', Fnt16x16, get_inst_data_mnu() , "âfü[â^" );
  97. MNU_mnuAdd( mnu, 0, 'T', Fnt16x16, get_inst_taro_mnu() , "TaroPYON" );
  98. # 104 "install.c"
  99. APL_setExitEvt("EXIT",(9999),"exit_chk");
  100.  
  101.  
  102. AplDtaInit();
  103.  
  104.  
  105. ColBoxNormal = SCN_tile_newMixCol(ColBoxNormal ,(0x00),(_ScnCol_dark) ,(_ScnColTbl[ 7]));
  106. ColBoxInfo = SCN_tile_newMixCol(ColBoxInfo ,(0x00),(_ScnColTbl[12]) ,(_ScnColTbl[ 7]));
  107. ColBoxError = SCN_tile_newMixCol(ColBoxError ,(0x00),(_ScnColTbl[10]) ,(_ScnColTbl[ 7]));
  108. ColBoxCaution = SCN_tile_newMixCol(ColBoxCaution,(0x00),(_ScnColTbl[14]),(_ScnColTbl[ 7]));
  109. ColMesh = SCN_tile_newMixCol(ColMesh ,(0x00),(_ScnCol_though),(_ScnColTbl[ 7]));
  110.  
  111. return ((0));
  112. }
  113.  
  114. int term()
  115. {
  116. char tmp[256];
  117.  
  118. FS_chdrv(toupper(DirStart[0]) - 'A');
  119. sprintf(tmp,"%s.",DirStart);
  120. FS_chdir(tmp);
  121.  
  122. APL_term();
  123. }
  124.  
  125. int disp_desktop()
  126. {
  127.  
  128. int n;
  129. char tmp[256];
  130. static char lastno = -1;
  131. static char *tbl[(8)] =
  132. {
  133. "towns04.tif",
  134. "towns05.tif",
  135. "towns06.tif",
  136. "towns07.tif",
  137. "towns08.tif",
  138. "towns09.tif",
  139. "towns10.tif",
  140. "towns11.tif"
  141. };
  142.  
  143. if ( lastno < 0 )
  144. {
  145. n = 7;
  146. } else
  147. {
  148. srand( clock() & 0x7FFFFFFF );
  149. do
  150. {
  151. n = rand() % (8);
  152. } while ( n == lastno );
  153. }
  154. sprintf(tmp,"%s../HYOUSHI/%s", DirStart, tbl[n] );
  155. lastno = n;
  156.  
  157. return tif_load(tmp);
  158. }
  159.  
  160. int install_main()
  161. {
  162. int ret;
  163.  
  164. SCN_wrtPage(1);
  165. syl_clear();
  166. for (;;)
  167. {
  168. PD_curOn();
  169. ret = EV_chk(EvTop,0);
  170. if ( ret == (9999) )
  171. break;
  172. }
  173. return (0);
  174. }
  175.  
  176. int exit_chk()
  177. {
  178. char *dlgTxm;
  179. int i, ret;
  180. static char *msgtbl[4] =
  181. {
  182. "",
  183. "âCâôâXâgü[âëé≡ÅIù╣é╡é▄é╖é⌐üH",
  184. "",
  185. (0)
  186. };
  187.  
  188. dlgTxm = DlgTxm_open(ColBoxCaution);
  189. for ( i = 0; msgtbl[i] != (0); ++i )
  190. DlgTxm_putf( dlgTxm, Fnt16x16, (1), msgtbl[i]);
  191.  
  192. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnColTbl[15]), (_ScnCol_dark),
  193. '\r' , 0x7300 , (9999), "", 0, "ÅIù╣ : [Ä└ìs]");
  194. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnColTbl[15]), (_ScnCol_dark),
  195. '\x1B', 0x7200, 0, "", 0, "ĵÅ┴ : [ĵÅ┴]");
  196. DlgTxm_setSize(dlgTxm,480,64);
  197. DlgTxm_setPosition(dlgTxm,(1));
  198. ret = DlgTxm_start(dlgTxm);
  199. DlgTxm_close(dlgTxm);
  200. if ( ret != (9999) )
  201. ret = 0;
  202.  
  203. return (ret);
  204. }
  205.  
  206. int about_dlg()
  207. {
  208. char *dlgTxm;
  209.  
  210. dlgTxm = DlgTxm_open(ColBoxNormal);
  211. DlgTxm_setTitle(dlgTxm,Fnt16x16, "ôVÉ░CD installer ver.%s edition #%s",
  212. "1.01a", "01" );
  213.  
  214. DlgTxm_putf( dlgTxm, Fnt16x16, (1),"üuôVÉ░ébéc Vol.1 ö≥ù┤é╠è¬üvâCâôâXâgü[âïâvâìâOâëâÇ");
  215. DlgTxm_putf( dlgTxm, Fnt16x12, (1),"");
  216. DlgTxm_putf( dlgTxm, Fnt16x16, (1), "%c%c",
  217. Gaiji_ohFMTOWNS>>8, Gaiji_ohFMTOWNS&0xFF );
  218. DlgTxm_putf( dlgTxm, Rom16x16, (1), "1994 ÅHé╠ô┴ò╩ìåòtÿ^");
  219. DlgTxm_putf( dlgTxm, Fnt16x16, (1), "%c%c SOFTBANK",
  220. Gaiji_copyright>>8, Gaiji_copyright&0xFF );
  221.  
  222. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black),
  223. (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r', 0x7300, 0, "", 0, "OK : [Ä└ìs]");
  224. DlgTxm_setSize(dlgTxm,320,48);
  225. DlgTxm_setPosition(dlgTxm,(1));
  226.  
  227. DlgTxm_start(dlgTxm);
  228. DlgTxm_close(dlgTxm);
  229.  
  230. return (0);
  231. }
  232.  
  233. int dsp_freemem()
  234. {
  235. unsigned int siz;
  236. char *dlgTxm;
  237. char tmp1[32], tmp2[32];
  238.  
  239. siz = APL_getFreeMem();
  240. dlgTxm = DlgTxm_open(ColBoxInfo);
  241. DlgTxm_setTitle(dlgTxm,Fnt16x16, "FREE MEMORY SIZE");
  242.  
  243. DlgTxm_putf( dlgTxm, Fnt16x12, (1),
  244. "free memory %s (%s) bytes",
  245. fdl_ltoaDig(siz,tmp1), fdl_ltoaMsg(siz,tmp2) );
  246.  
  247. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black),
  248. (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r', 0x7300, 0, "", 0, "OK : [Ä└ìs]");
  249. DlgTxm_setSize(dlgTxm,400,64);
  250. DlgTxm_setPosition(dlgTxm,(0),2,22);
  251.  
  252. DlgTxm_start(dlgTxm);
  253. DlgTxm_close(dlgTxm);
  254. }
  255. # 5 "insttool.c"
  256. char *get_inst_tool_mnu()
  257. {
  258. char *mnu;
  259.  
  260. if ( (mnu = MNU_open()) == (0) )
  261. return ((0));
  262. MNU_datAdd( mnu, 0, 'E', Rom16x16, 0, "install_ein" , 0, "édéhém(TM)âvâìâWâFâNâg" );
  263. MNU_datAdd( mnu, 0, 'L', Rom16x16, 0, "install_gl" , 0, "édéwéoâëâôâ`ââü[" );
  264. MNU_datAdd( mnu, 0, 'S', Rom16x16, 0, "install_gstartup", 0, "TownsâVâFâïâXâ^ü[âgâAâbâv" );
  265. MNU_datAdd( mnu, 0, 'C', Rom16x16, 0, "install_cdsdmini", 0, "CD-ROMâfâoâCâXüEâhâëâCâo" );
  266. MNU_datAdd( mnu, 0, 'B', Rom16x16, 0, "install_bascheck", 0, "éaé`éréhébâ`âFâbâNâTâÇ" );
  267. MNU_datAdd( mnu, 0, 'C', Rom16x16, 0, "install_ccheck" , 0, "ébâ\\ü[âXâRü[âhâ`âFâbâNâTâÇ" );
  268. MNU_setPosition(mnu,-1);
  269.  
  270. return (mnu);
  271. }
  272.  
  273. int install_gl()
  274. {
  275. static char *buf[6] =
  276. {
  277. "softname    \"édéwéoâëâôâ`ââü[\"",
  278. "instfile    /OH_TOWNS/SHELTOOL/GL    \"*.exg *.doc\"",
  279. "help        GL.GGG",
  280. (0)
  281. };
  282.  
  283. return install_exec(buf);
  284. }
  285.  
  286. int install_gstartup()
  287. {
  288. static char *buf[6] =
  289. {
  290. "softname    \"TownsâVâFâïâXâ^ü[âgâAâbâv\"",
  291. "instfile    /OH_TOWNS/SHELTOOL/GSTARTUP    \"*.exg *.doc\"",
  292. "help        GSTARTUP.GGG",
  293. (0)
  294. };
  295.  
  296. return install_exec(buf);
  297. }
  298.  
  299. int install_cdsdmini()
  300. {
  301. static char *buf[6] =
  302. {
  303. "softname    \"CD-SD Mini CD-ROMâfâoâCâXâhâëâCâo\"",
  304. "instfile    /OH_TOWNS/CDSDMINI    \"readme. *.98 *.asm *.asp *.bat *.doc *.fm *.inc\"",
  305. "help        CDSDMINI.GGG",
  306. (0)
  307. };
  308.  
  309. return install_exec(buf);
  310. }
  311.  
  312. int install_bascheck()
  313. {
  314. static char *buf[4] =
  315. {
  316. "softname    \"éaé`éréhébâ`âFâbâNâTâÇ\"",
  317. "instfile    /OH_TOWNS/OHFMTOOL/BASCHECK    \"*.bas *.doc\"",
  318. "help        BASCHECK.GGG",
  319. (0)
  320. };
  321.  
  322. return install_exec(buf);
  323. }
  324.  
  325. int install_ccheck()
  326. {
  327. static char *buf[4] =
  328. {
  329. "softname    \"ébâ\\ü[âXâRü[âhâ`âFâbâNâTâÇ\"",
  330. "instfile    /OH_TOWNS/OHFMTOOL/CCHECK    \"*.exe *.c *.doc\"",
  331. "help        CHK.GGG",
  332. (0)
  333. };
  334.  
  335. return install_exec(buf);
  336. }
  337. # 6 "instein.c"
  338. int _ein_make_lcnf(char *instdir);
  339.  
  340. int install_ein()
  341. {
  342. int ret, drv, fcopy_att, srcdrv, item_setup;
  343. char *softname;
  344. char *helpfn;
  345. char *srcdir;
  346. char instdir[256], *instfile;
  347. char *item_prog, *item_ttl, item_para[128];
  348. int item_att;
  349. char *dlgTxm;
  350. char tmp[256];
  351.  
  352. instdir[0] = '\0';
  353. softname = "édéhém(TM)âvâìâWâFâNâg èεû{âZâbâg";
  354. srcdir = "/OH_TOWNS/EIN";
  355. instfile = "l.cnf *.dll *.doc *.exg *.icn";
  356. helpfn = "/OH_TOWNS/EIN/README.DOC";
  357. item_ttl = "EINâëâôâ`ââü[";
  358. item_prog = "L.EXG";
  359. item_att = 2;
  360.  
  361. srcdrv = toupper(DirStart[0]) - 'A';
  362.  
  363.  
  364. _TOP:
  365. syl_putf("%s",softname);
  366. dlgTxm = DlgTxm_open(ColBoxNormal);
  367. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  368. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  369. "%s é≡âCâôâXâgü[âïé╡é▄é╖üB", softname );
  370. DlgTxm_putf( dlgTxm, Fnt16x12, (1), "");
  371.  
  372. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 ,
  373. 1, "", 0, "▓▌╜─░┘ : [Ä└ìs]");
  374. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'H' , 0x2300 ,
  375. 2, "inst_help", helpfn, "Éαû╛ : [H]");
  376. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200,
  377. 3, "", (0), "ĵÅ┴ : [ĵÅ┴]");
  378.  
  379. DlgTxm_setSize(dlgTxm,480,40);
  380. DlgTxm_setPosition(dlgTxm,(1));
  381. do
  382. {
  383. ret = DlgTxm_start(dlgTxm);
  384. } while ( ret == 2 );
  385. DlgTxm_close(dlgTxm);
  386. if ( ret != 1 )
  387. goto _RET;
  388.  
  389.  
  390.  
  391. ret = APL_setInstallDir(instdir,"%s : âCâôâXâgü[âïɵÄwÆΦ", softname);
  392. if ( ret )
  393. goto _TOP;
  394.  
  395. dlgTxm = DlgTxm_open(ColBoxNormal);
  396. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  397. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  398. "%s", instdir );
  399. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  400. "é▒é╠âfâBâîâNâgâèé╔âCâôâXâgü[âïé╡é─éαéóéóé┼é╖é⌐üH" );
  401. DlgTxm_putf( dlgTxm, Fnt16x12, (1),"");
  402. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  403. "▓▌╜─░┘1 üc âtâ@âCâïé≡òíÄ╩é╡é─TownsMENU é╔âAâCâeâÇôoÿ^");
  404. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  405. "▓▌╜─░┘2 üc âtâ@âCâïé≡òíÄ╩üiâAâCâeâÇôoÿ^é═é╡é╚éóüj    ");
  406.  
  407. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 , 1, "", 0, "▓▌╜─░┘1 : [Ä└ìs]");
  408. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'C' , 0x2C00 , 2, "", 0, "▓▌╜─░┘2 : [C]");
  409.  
  410. DlgTxm_setSize(dlgTxm,320,40);
  411. DlgTxm_setPosition(dlgTxm,(1));
  412. ret = DlgTxm_start(dlgTxm);
  413. DlgTxm_close(dlgTxm);
  414. if ( ret != 1 && ret != 2 )
  415. goto _TOP;
  416. item_setup = (ret == 1 ? 1 : 0);
  417.  
  418.  
  419. syl_putf("INSTALL START");
  420. FS_chdrv(srcdrv);
  421. FS_getFullPn(tmp,srcdir);
  422. fcopy_att = (0x00000001) | (0x00000010) | (0x00000100);
  423. ret = FCOPY_exec(fcopy_att, tmp, instfile, instdir);
  424.  
  425.  
  426. if ( ret == (0) && item_setup != 0 )
  427. {
  428. syl_putf("ITEM SETUP");
  429. drv = toupper(instdir[0]) - 'A';
  430.  
  431. strcpy(tmp,instdir);
  432. add_path_fn(tmp,item_prog);
  433.  
  434. strcpy(item_para,instdir);
  435. add_path_fn(item_para,"einstd.icn");
  436. item_setApl( drv, 1024, item_ttl, tmp, item_para, item_att );
  437.  
  438. _ein_make_lcnf(instdir);
  439. }
  440.  
  441.  
  442. install_end( softname, ret );
  443.  
  444. _RET:
  445. syl_clear();
  446. return (0);
  447. }
  448.  
  449. int _ein_make_lcnf(char *instdir)
  450. {
  451. int i, argc;
  452. char *fp;
  453. char **argv;
  454. char *s, tmp[256], path[256];
  455. static char *tbl[18] =
  456. {
  457. "# EIN(TM)âëâôâ`ââü[L.EXG É▌ÆΦâtâ@âCâïâTâôâvâï",
  458. "# ÅæÄ«:",
  459. "# âvâìâOâëâÇû╝,MODE; 0:EXG/1:EXP/2:EXP-overay/3:EXE/COM, ICON No.,X Y, ",
  460. "#            0:FIX/1-GROUP, command line",
  461.  
  462. "#" ,
  463. "TMENU.EXG        \"EIN(TM),0,1024,0 20,0,\"",
  464. "FVI.EXG        \"FILER,0,1034,,0,\"" ,
  465. "MVI.EXG        \"EDITOR,0,1035,,0,\"" ,
  466. "#CONSOLE,2,1027,,0,D:\\CONSOLE.EXE" ,
  467. "#Windows,2,1026,,0,D:\\EXE\\REIPL.COM E:" ,
  468. "#" ,
  469. "CDP.EXG        \"CDplay,0,1040,,2,\"" ,
  470. "ANIMICS.EXG    \"Animics,0,1044,,2,\"" ,
  471. "#TIFF,1,1046,,2,D:\\T_TOOL\\TIFF.EXP" ,
  472. "LHAT.EXG        \"LHA,0,1045,,2,\"" ,
  473. (0)
  474. };
  475.  
  476. strcpy(tmp,instdir); add_path_fn(tmp,"l.cnf");
  477. if ( (fp = FS_fopen(tmp,"wb")) == (0) )
  478. return ((-1));
  479. for ( i = 0; tbl[i] != (0); ++i )
  480. {
  481. s = tbl[i];
  482. if ( *s == '#' )
  483. {
  484. fputs(s,fp);
  485. } else
  486. {
  487. if ( (argc = DTA_makeArg(s,&argv)) > 0 )
  488. {
  489. if ( argc == 2 )
  490. {
  491. strcpy(tmp,instdir);
  492. add_path_fn(tmp,argv[0]);
  493. FS_dosFn( path, tmp);
  494. fprintf(fp,"%s%s",argv[1], path);
  495. }
  496. DTA_clearArg(argc,argv);
  497. }
  498. }
  499. fputs("\r\n",fp);
  500. }
  501. FS_fclose(fp);
  502. return ((0));
  503. }
  504. # 5 "instimg.c"
  505. char *get_inst_imag_mnu()
  506. {
  507. char *mnu;
  508.  
  509. if ( (mnu = MNU_open()) == (0) )
  510. return ((0));
  511. MNU_datAdd( mnu, 0, 'T', Rom16x16, 0, "install_tetujin" , 0, "ëµæ£Åêù¥é╠ôSÉlÆB" );
  512. MNU_datAdd( mnu, 0, 'U', Rom16x16, 0, "install_ugoku" , 0, "ô«é¡é┤é±é╖" );
  513. MNU_datAdd( mnu, 0, 'E', Rom16x16, 0, "install_eastray" , 0, "ìéï@ö\\âîâCâgâîü[âVâôâOâVâXâeâÇ EASTRAY" );
  514. MNU_datAdd( mnu, 0, 'C', Rom16x16, 0, "install_cs2ray" , 0, "é½éπü[é╖é»âRâôâoü[â^" );
  515. MNU_datAdd( mnu, 0, 'I', Rom16x16, 0, "install_icv" , 0, "î╕ÉFüòëµæ£âRâôâoü[âgâcü[âï éhébéu" );
  516. MNU_datAdd( mnu, 0, 'D', Rom16x16, 0, "install_dolmorph", 0, "âéü[âtâBâôâOâcü[âï DolphMorph" );
  517. MNU_datAdd( mnu, 0, 'M', Rom16x16, 0, "install_merissa" , 0, "FM Towns Video Player MERISSA" );
  518. MNU_datAdd( mnu, 0, 'G', Rom16x16, 0, "install_gafil" , 0, "ëµæ£âtâBâïâ^ éféüéåéëéî" );
  519. MNU_datAdd( mnu, 0, 'F', Rom16x16, 0, "install_g_field" , 0, "âXâvâëâCâgâ}âbâvâGâfâBâ^ GIGA-FILED" );
  520. MNU_setPosition(mnu,-1);
  521.  
  522. return (mnu);
  523. }
  524.  
  525. int install_tetujin()
  526. {
  527. static char *buf[6] =
  528. {
  529. "softname    \"üuëµæ£Åêù¥é╠ôSÉlÆBüv\"",
  530. "instfile    /OH_TOWNS/TETUJIN    \"*.exg *.doc\"",
  531. "help        TETUJIN.GGG",
  532. "arcfile    src.lzh    SRC",
  533. "item        \"ëµæ£Åêù¥é╠ôSÉlÆB\",TETUJIN.EXG,\"\",2",
  534. (0)
  535. };
  536.  
  537. return install_exec(buf);
  538. }
  539.  
  540. int install_ugoku()
  541. {
  542. static char *buf[13] =
  543. {
  544. "softname    \"üuô«é¡é┤é±é╖üv\"",
  545. "instfile    /OH_TOWNS/UGOKU    \"*.exp *.exg *.tab *.h *.lib ugoku.doc\"",
  546. "help        UGOKU.GGG",
  547. "arcfile    src.lzh    SRC",
  548. "demo        \"âfâé\"    ugoku_demo",
  549. "item        \"MOVPLAY\"        ,MOVPLAY.EXP,\"\",2",
  550. "item        \"MOVPLAY/SHELL\"  ,MOVPLAY.EXG,\"\",2",
  551. "item        \"MOVREC\"         ,MOVREC.EXP ,\"\",2",
  552. "item        \"MOVREC/SHELL\"   ,MOVREC.EXG ,\"\",2",
  553. "item        \"VDSYS\"          ,VDSYS.EXP  ,\"\",2",
  554. "item        \"âîâèü[ât\"       ,MOVRLF.EXP ,\"\",2",
  555. "item        \"âîâèü[ât/SHELL\" ,MOVRLF.EXG ,\"\",2",
  556. (0)
  557. };
  558.  
  559. return install_exec(buf);
  560. }
  561.  
  562. int ugoku_demo()
  563. {
  564. char *fn, para[256];
  565.  
  566. strcpy( para,"-display 3");
  567. fn = para + strlen(para);
  568. fn[0] = ' ';
  569. fn[1] = DirStart[0];
  570. fn[2] = ':';
  571. strcpy(fn+3,"/OH_TOWNS/UGOKU/SAMPLE/hiroden.v02");
  572.  
  573. fn = para + strlen(para);
  574. fn[0] = ' ';
  575. fn[1] = DirStart[0];
  576. fn[2] = ':';
  577. strcpy(fn+3,"/OH_TOWNS/UGOKU/SAMPLE/hirodenr.v02");
  578.  
  579. exprun("/OH_TOWNS/DEMOTOOL/ugkplay.exp", para );
  580.  
  581. return (0);
  582. }
  583.  
  584. int install_cs2ray()
  585. {
  586. static char *buf[5] =
  587. {
  588. "softname    \"é½éπü[é╖é»âRâôâoü[â^\"",
  589. "instfile    /OH_TOWNS/CS2RAY    \"*.exg *.doc *.icn\"    -nocopydir",
  590. "help        CS2RAY.GGG",
  591. "item        \"CS2RAY\",CS2RAY.EXG,\"\",2",
  592. (0)
  593. };
  594.  
  595. return install_exec(buf);
  596. }
  597.  
  598. int install_icv()
  599. {
  600. static char *buf[6] =
  601. {
  602. "softname    \"î╕ÉFüòëµæ£âRâôâoü[âgâcü[âï ICV/Lite\"",
  603. "instfile    /OH_TOWNS/ICV    \"*.exp *.exg *.doc *.scr\"",
  604. "help        ICV.GGG",
  605. "item        \"ICV\"      ,ICV.EXP,\"\",2",
  606. "item        \"ICV/SHELL\",ICV.EXG,\"\",2",
  607. (0)
  608. };
  609.  
  610. return install_exec(buf);
  611. }
  612.  
  613. int install_dolmorph()
  614. {
  615. static char *buf[6] =
  616. {
  617. "softname    \"DolphMorph\"",
  618. "instfile    /OH_TOWNS/DOLMORPH    \"*.exp *.man\" -nocopydir",
  619. "help        DOLMORPH.GGG",
  620. "demo        \"âfâé\"    dolmorph_demo",
  621. "item        \"DOLMORPH\",DOLMORPH.EXP,\"\",2",
  622. (0)
  623. };
  624.  
  625. return install_exec(buf);
  626. }
  627.  
  628. int dolmorph_demo()
  629. {
  630. char *fn, para[256];
  631.  
  632. strcpy( para, "-wait 2");
  633.  
  634. fn = ¶[ strlen(para) ];
  635. fn[0] = ' ';
  636. fn[1] = DirStart[0];
  637. fn[2] = ':';
  638. strcpy(fn+3,"/OH_TOWNS/DOLMORPH/SMPL/FACE/face.mov");
  639.  
  640. fn = ¶[ strlen(para) ];
  641. fn[0] = ' ';
  642. fn[1] = DirStart[0];
  643. fn[2] = ':';
  644. strcpy(fn+3,"/OH_TOWNS/DOLMORPH/SMPL/HAND/hand.mov");
  645.  
  646. fn = ¶[ strlen(para) ];
  647. fn[0] = ' ';
  648. fn[1] = DirStart[0];
  649. fn[2] = ':';
  650. strcpy(fn+3,"/OH_TOWNS/DOLMORPH/SMPL/UNYO/unyo.mov");
  651.  
  652. exprun( "/OH_TOWNS/DEMOTOOL/ugkplay.exp", para );
  653.  
  654. return (0);
  655. }
  656.  
  657.  
  658. int install_merissa()
  659. {
  660. static char *buf[5] =
  661. {
  662. "softname    \"FM Towns Video Player MERISSA\"",
  663. "instfile    /OH_TOWNS/MERISSA    \"*.cdl *.cfg *.dat *.doc *.env *.exp *.icn *.nao *.snd *.sys *.tif\"",
  664. "help        MERISSA.GGG",
  665. "item        \"MERISSA\",MERISSA.EXP,\"\",2",
  666. (0)
  667. };
  668.  
  669. return install_exec(buf);
  670. }
  671. # 5 "insteast.c"
  672. int _eastray_demo()
  673. {
  674. static char *tiflist[16] =
  675. {
  676. "MOON.TIF" ,
  677. "RAYTRACE.TIF",
  678. "BALL3_2.TIF" ,
  679. "FPICS.TIF" ,
  680. "FPICS2.TIF" ,
  681. "FR_C.TIF" ,
  682. "PLANET_C.TIF",
  683. "SAM10.TIF" ,
  684. "SAM13.TIF" ,
  685. "SAM9.TIF" ,
  686. "TEST10.TIF" ,
  687. "TOUMEI_C.TIF",
  688. "FIG3X.TIF" ,
  689. "FIG5X.TIF" ,
  690. "FIG6_2.TIF" ,
  691. (0)
  692. };
  693.  
  694. FS_chdrv( toupper(DirStart[0]) - 'A' );
  695. FS_chdir( "/OH_TOWNS/EASTRAY/DEMO" );
  696. tiflist_disp(tiflist);
  697.  
  698. return (0);
  699. }
  700.  
  701. int install_eastray()
  702. {
  703. int ret, drv, fcopy_att, prog_type, srcdrv, item_setup;
  704. char *softname;
  705. char *helpfn;
  706. char *srcdir;
  707. char instdir[256], *instfile;
  708. char *item_prog, *item_ttl, item_para[128];
  709. int item_att;
  710. char *dlgTxm;
  711. char tmp[256], tmp2[256];
  712.  
  713. instdir[0] = '\0';
  714.  
  715.  
  716.  
  717. softname = "üuìéï@ö\\┌▓─┌░╝▌╕▐ ╝╜├╤ EASTRAYüv";
  718.  
  719. srcdir = "/OH_TOWNS/EASTRAY";
  720. instfile = "*.*";
  721. helpfn = "/OH_TOWNS/EASTRAY/EASTRAY.GGG";
  722. item_att = 2;
  723.  
  724. srcdrv = toupper(DirStart[0]) - 'A';
  725.  
  726.  
  727. _TOP:
  728. syl_putf("%s",softname);
  729. dlgTxm = DlgTxm_open(ColBoxNormal);
  730. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  731. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  732. "%s é≡âCâôâXâgü[âïé╡é▄é╖üB", softname );
  733. DlgTxm_putf( dlgTxm, Fnt16x12, (1), "");
  734.  
  735. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 ,
  736. 1, "", 0, "▓▌╜─░┘ : [Ä└ìs]");
  737. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'H' , 0x2300 ,
  738. 2, "inst_help", helpfn, "Éαû╛ : [H]");
  739. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'D' , 0x2000 ,
  740. 3, "", 0, "âfâé : [D");
  741. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200,
  742. 4, "", (0), "ĵÅ┴ : [ĵÅ┴]");
  743.  
  744. DlgTxm_setSize(dlgTxm,480,40);
  745. DlgTxm_setPosition(dlgTxm,(1));
  746. do
  747. {
  748. ret = DlgTxm_start(dlgTxm);
  749. } while ( ret == 2 );
  750. DlgTxm_close(dlgTxm);
  751. if ( ret == 3 )
  752. {
  753. _eastray_demo();
  754. goto _TOP;
  755. } else if ( ret != 1 )
  756. goto _RET;
  757.  
  758.  
  759. dlgTxm = DlgTxm_open(ColBoxNormal);
  760. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  761. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  762. "âvâìâOâëâÇé╠Äφò╩é≡ÄwÆΦé╡é─é¡é╛é│éóüB" );
  763. DlgTxm_putf( dlgTxm, Fnt16x12, (1), "");
  764. DlgTxm_putf( dlgTxm, Fnt16x16, (0), "  1. TOS386 üc TOWNS ùp" );
  765. DlgTxm_putf( dlgTxm, Fnt16x16, (0), "  2. TOS387 üc TOWNS ùp        üiÉöÆlëëÄZâvâìâZâbâTü^ODP ôïì┌ï@Äφüj" );
  766. DlgTxm_putf( dlgTxm, Fnt16x16, (0), "  3. DOS386 üc DOS-EXTENDERö─ùp" );
  767. DlgTxm_putf( dlgTxm, Fnt16x16, (0), "  4. DOS387 üc DOS-EXTENDERö─ùpüiÉöÆlëëÄZâvâìâZâbâTü^ODP ôïì┌ï@Äφüj" );
  768.  
  769.  
  770. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '1', 0x0200,
  771. 1, "", 0, "TOS386 : [1]");
  772. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '2', 0x0300,
  773. 2, "", 0, "TOS387 : [2]");
  774. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '3', 0x0400,
  775. 3, "", 0, "DOS386 : [3]");
  776. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '4', 0x0500,
  777. 4, "", 0, "DOS387 : [4]");
  778.  
  779. DlgTxm_setSize(dlgTxm,480,40);
  780. DlgTxm_setPosition(dlgTxm,(1));
  781. do
  782. {
  783. ret = DlgTxm_start(dlgTxm);
  784. } while ( ret < 1 );
  785. DlgTxm_close(dlgTxm);
  786. prog_type = ret;
  787.  
  788.  
  789. ret = APL_setInstallDir(instdir,"%s : âCâôâXâgü[âïɵÄwÆΦ", softname);
  790. if ( ret )
  791. goto _TOP;
  792.  
  793. dlgTxm = DlgTxm_open(ColBoxNormal);
  794. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  795. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  796. "%s", instdir );
  797. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  798. "é▒é╠âfâBâîâNâgâèé╔âCâôâXâgü[âïé╡é─éαéóéóé┼é╖é⌐üH" );
  799. DlgTxm_putf( dlgTxm, Fnt16x12, (1),"");
  800. if ( prog_type == 1 || prog_type == 2 )
  801. {
  802. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  803. "▓▌╜─░┘1 üc âtâ@âCâïé≡òíÄ╩é╡é─TownsMENU é╔âAâCâeâÇôoÿ^");
  804. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  805. "▓▌╜─░┘2 üc âtâ@âCâïé≡òíÄ╩üiâAâCâeâÇôoÿ^é═é╡é╚éóüj    ");
  806. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 , 1, "", 0, "▓▌╜─░┘1 : [Ä└ìs]");
  807. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'C' , 0x2C00 , 2, "", 0, "▓▌╜─░┘2 : [C]");
  808. } else
  809. {
  810. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 , 2, "", 0, "▓▌╜─░┘ : [Ä└ìs]");
  811. }
  812. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200, 3, "", 0, "ĵÅ┴ : [ĵÅ┴]");
  813.  
  814. DlgTxm_setSize(dlgTxm,320,40);
  815. DlgTxm_setPosition(dlgTxm,(1));
  816. ret = DlgTxm_start(dlgTxm);
  817. DlgTxm_close(dlgTxm);
  818. if ( ret != 1 && ret != 2 )
  819. goto _TOP;
  820. item_setup = (ret == 1 ? 1 : 0);
  821.  
  822.  
  823. syl_putf("INSTALL START");
  824. switch ( prog_type )
  825. {
  826. case 1: srcdir = "/OH_TOWNS/EASTRAY/PROGRAM/TOWNS386"; break;
  827. case 2: srcdir = "/OH_TOWNS/EASTRAY/PROGRAM/TOWNS387"; break;
  828. case 3: srcdir = "/OH_TOWNS/EASTRAY/PROGRAM/EXTEN386"; break;
  829. case 4: srcdir = "/OH_TOWNS/EASTRAY/PROGRAM/EXTEN387"; break;
  830. }
  831.  
  832. FS_chdrv(srcdrv);
  833. FS_getFullPn(tmp,srcdir);
  834. fcopy_att = (0x00000010) | (0x00000100);
  835. instfile = "*.*";
  836. ret = FCOPY_exec(fcopy_att, tmp, instfile, instdir);
  837.  
  838.  
  839.  
  840. if ( ret == (0) && item_setup != 0 )
  841. {
  842. syl_putf("ITEM SETUP");
  843. drv = toupper(instdir[0]) - 'A';
  844. strcpy(item_para,"");
  845.  
  846. strcpy(tmp,instdir);
  847. add_path_fn(tmp,"SUPPORT.EXP");
  848. item_setApl( drv, 1024, "EASTRAY/SUPPORT", tmp, item_para, item_att );
  849. }
  850.  
  851.  
  852. install_end( softname, ret );
  853.  
  854. _RET:
  855. syl_clear();
  856. return (0);
  857. }
  858. # 6 "instsnd.c"
  859. char *get_inst_snd_mnu()
  860. {
  861. char *mnu;
  862.  
  863. if ( (mnu = MNU_open()) == (0) )
  864. return ((0));
  865. MNU_datAdd( mnu, 0, 'G', Rom16x16, 0, "install_otohime", 0, "ë╣òPÄ╡ò╧ë╗" );
  866. MNU_datAdd( mnu, 0, 'G', Rom16x16, 0, "install_gwav" , 0, "PCM Player 'GWAV'");
  867. MNU_setPosition(mnu,-1);
  868.  
  869. return (mnu);
  870. }
  871.  
  872. int install_otohime()
  873. {
  874. static char *buf[6] =
  875. {
  876. "softname    \"üuë╣òPÄ╡ò╧ë╗üv\"",
  877. "instfile    /OH_TOWNS/OTOHIME    \"*.exp *.doc\"",
  878. "help        OTOHIME.GGG",
  879. "arcfile    src.lzh    SRC",
  880. "item        \"ë╣òPÄ╡ò╧ë╗\",OTOHIME.EXP,\"\",2",
  881. (0)
  882. };
  883.  
  884. return install_exec(buf);
  885. }
  886.  
  887. int install_gwav()
  888. {
  889. static char *buf[6] =
  890. {
  891. "softname    \"üuPCM Player 'GWAV'üv\"",
  892. "instfile    /OH_TOWNS/SHELTOOL/GWAV    \"*.*\"",
  893. "help        SRC/GWAV.DOC",
  894. "item        \"GWAV\",EXP\\GWAV.EXG,\"\",2",
  895. (0)
  896. };
  897.  
  898. return install_exec(buf);
  899. }
  900. # 5 "instgame.c"
  901. char *get_inst_game_mnu()
  902. {
  903. char *mnu;
  904.  
  905. if ( (mnu = MNU_open()) == (0) )
  906. return ((0));
  907. MNU_datAdd( mnu, 0, 'A', Rom16x16, 0, "install_skyduel" , 0, "éréjéxü@écétédék" );
  908. MNU_datAdd( mnu, 0, 'J', Rom16x16, 0, "install_jyuku" , 0, "ÅmâQü[âÇ" );
  909. MNU_datAdd( mnu, 0, 'D', Rom16x16, 0, "install_draw2" , 0, "DRAW2 ü`éáéóé╠é⌐é»é═é╡ü`");
  910. MNU_datAdd( mnu, 0, 'P', Rom16x16, 0, "install_picrus" , 0, "âsâNâïâXé╠û`î»Ä╥" );
  911. MNU_datAdd( mnu, 0, 'T', Rom16x16, 0, "install_t_tank" , 0, "é╜é±é¡é╠ï⌐é╤" );
  912. MNU_datAdd( mnu, 0, 'S', Rom16x16, 0, "install_shiva" , 0, "the rebel of érégéhéué`" );
  913. MNU_setPosition(mnu,-1);
  914.  
  915. return (mnu);
  916. }
  917.  
  918. int install_skyduel()
  919. {
  920. static char *buf[6] =
  921. {
  922. "softname    \"SKY DUEL\"",
  923. "instfile    /OH_TOWNS/SKYDUEL    \"main.exp skyuty.exp *.be? *.doc *.fly *.pmb *.ptn cdplay.\"",
  924. "help        SKYDUEL.DOC",
  925. "runexp        MAINNP.EXP",
  926. "item        \"SKY DUEL\",MAIN.EXP,,2",
  927. (0)
  928. };
  929.  
  930. return install_exec(buf);
  931. }
  932.  
  933. int install_jyuku()
  934. {
  935. static char *buf[5] =
  936. {
  937. "softname    \"ÅmâQü[âÇ\"",
  938. "instfile    /OH_TOWNS/JYUKU    \"*.*\"",
  939. "help        JYUKU.GGG",
  940. "item        \"ÅmâQü[âÇ\",MAIN.EXP,,2",
  941. (0)
  942. };
  943.  
  944. return install_exec(buf);
  945. }
  946. # 5 "instdata.c"
  947. char *get_inst_data_mnu()
  948. {
  949. char *mnu;
  950.  
  951. if ( (mnu = MNU_open()) == (0) )
  952. return ((0));
  953. MNU_datAdd( mnu, 0, 'D', Rom16x16, 0, "install_jiten" , 0, "ôVÄgé╠ĽôTü^ê½ûéé╠ĽôT" );
  954. MNU_datAdd( mnu, 0, 'E', Rom16x16, 0, "install_index" , 0, "Oh!FM TOWNS æìì⌡ê°üEINDEX" );
  955. MNU_datAdd( mnu, 0, 'H', Rom16x16, 0, "install_hyoushi" , 0, "Oh!FM TOWNS ò\\Äåébéfâfü[â^ÅW" );
  956. MNU_datAdd( mnu, 0, 'C', Rom16x16, 0, "install_calendar", 0, "Oh!FM TOWNS âJâîâôâ_ü[ébéf" );
  957. MNU_datAdd( mnu, 0, 'L', Rom16x16, 0, "install_logo" , 0, "Oh!FM TOWNS âìâSâ}ü[âN" );
  958. MNU_datAdd( mnu, 0, 'Q', Rom16x16, 0, "install_qskesmp" , 0, "CubicSketchâTâôâvâïô«ëµâfü[â^");
  959. MNU_datAdd( mnu, 0, 'F', Rom16x16, 0, "install_fjcha" , 0, "òxÄmÆ╩üuÆâüvëµæ£âfü[â^" );
  960. MNU_datAdd( mnu, 0, 'H', Rom16x16, 0, "install_hanasu" , 0, "üué═é╚é╖éµüvô«ëµâfü[â^" );
  961. MNU_setPosition(mnu,-1);
  962.  
  963. return (mnu);
  964. }
  965.  
  966. int install_jiten()
  967. {
  968. static char *buf[6] =
  969. {
  970. "softname    \"ôVÄgé╠ĽôTü^ê½ûéé╠ĽôT\"",
  971. "instfile    /OH_TOWNS/JITEN    \"*.*\"",
  972. "help        JITEN.GGG",
  973. (0)
  974. };
  975.  
  976. return install_exec(buf);
  977. }
  978.  
  979. int install_index()
  980. {
  981. static char *buf[6] =
  982. {
  983. "softname    \"Oh!FM TOWNS æìì⌡ê°üEINDEX\"",
  984. "instfile    /OH_TOWNS/INDEX    \"*.txt *.doc\"",
  985. "help        INDEX.GGG",
  986. (0)
  987. };
  988.  
  989. return install_exec(buf);
  990. }
  991.  
  992. int install_logo()
  993. {
  994. static char *buf[6] =
  995. {
  996. "softname    \"Oh!FM TOWNS âìâSâ}ü[âN\"",
  997. "instfile    /OH_TOWNS/OHFMLOGO    \"*.ggg *.tif\"",
  998. "help        OHFMT.GGG",
  999. (0)
  1000. };
  1001.  
  1002. return install_exec(buf);
  1003. }
  1004.  
  1005. int install_hyoushi()
  1006. {
  1007. int ret, fcopy_att, srcdrv;
  1008. char *softname;
  1009. char *helpfn;
  1010. char *srcdir;
  1011. char instdir[256], *instfile;
  1012. char *dlgTxm;
  1013. char tmp[256];
  1014. static char *tiflist[9] =
  1015. {
  1016. "towns04.tif",
  1017. "towns05.tif",
  1018. "towns06.tif",
  1019. "towns07.tif",
  1020. "towns08.tif",
  1021. "towns09.tif",
  1022. "towns10.tif",
  1023. "towns11.tif",
  1024. (0)
  1025. };
  1026.  
  1027. instdir[0] = '\0';
  1028. softname = "énéê!FMésénévémér ò\\Äåébéfâfü[â^ÅW";
  1029. srcdir = "/OH_TOWNS/HYOUSHI";
  1030. helpfn = "/OH_TOWNS/HYOUSHI/HYOUSHI.GGG";
  1031.  
  1032. srcdrv = toupper(DirStart[0]) - 'A';
  1033.  
  1034. _TOP:
  1035. syl_putf("%s",softname);
  1036. dlgTxm = DlgTxm_open(ColBoxNormal);
  1037. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  1038. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1039. "%s é≡âCâôâXâgü[âïé╡é▄é╖üB", softname );
  1040. DlgTxm_putf( dlgTxm, Fnt16x12, (1), "");
  1041.  
  1042. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 ,
  1043. 1, "", 0, "▓▌╜─░┘ : [Ä└ìs]");
  1044. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'H' , 0x2300 ,
  1045. 2, "inst_help", helpfn, "Éαû╛ : [H]");
  1046. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'D' , 0x2000 ,
  1047. 3, "", 0, "ò\\Ī : [D]");
  1048. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200,
  1049. 4, "", (0), "ĵÅ┴ : [ĵÅ┴]");
  1050.  
  1051. DlgTxm_setSize(dlgTxm,480,40);
  1052. DlgTxm_setPosition(dlgTxm,(1));
  1053. do
  1054. {
  1055. ret = DlgTxm_start(dlgTxm);
  1056. } while ( ret == 2 );
  1057. DlgTxm_close(dlgTxm);
  1058. if ( ret == 3 )
  1059. {
  1060. FS_chdrv( toupper(DirStart[0]) - 'A' );
  1061. FS_chdir( "/OH_TOWNS/HYOUSHI" );
  1062. tiflist_disp(tiflist);
  1063. goto _TOP;
  1064. } else if ( ret != 1 )
  1065. goto _RET;
  1066.  
  1067.  
  1068. dlgTxm = DlgTxm_open(ColBoxNormal);
  1069. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  1070. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1071. "âCâôâXâgü[âïé╖éΘò\\Äåébéfâfü[â^é╠ëµæ£âfü[â^î`Ä«é≡ÄwÆΦé╡é─é¡é╛é│éóüB" );
  1072. DlgTxm_putf( dlgTxm, Fnt16x12, (1), "");
  1073.  
  1074. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'A' , 0x1E00 ,
  1075. 3, "", 0, "TIFF & BMP : [A]");
  1076. DlgTxm_setBtn( dlgTxm, Fnt16x16, 136, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'T' , 0x1500 ,
  1077. 1, "", 0, "TIFF : [T]");
  1078. DlgTxm_setBtn( dlgTxm, Fnt16x16, 136, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'B' , 0x2E00 ,
  1079. 2, "", 0, "BMP : [B]");
  1080. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200,
  1081. 0, "", (0), "ĵÅ┴ : [ĵÅ┴]");
  1082.  
  1083. DlgTxm_setSize(dlgTxm,480,40);
  1084. DlgTxm_setPosition(dlgTxm,(1));
  1085. ret = DlgTxm_start(dlgTxm);
  1086. DlgTxm_close(dlgTxm);
  1087. switch ( ret )
  1088. {
  1089. case 1: instfile = "*.tif *.doc"; break;
  1090. case 2: instfile = "*.bmp *.doc"; break;
  1091. case 3: instfile = "*.tif *.bmp *.doc"; break;
  1092. default:
  1093. goto _TOP;
  1094. }
  1095.  
  1096.  
  1097. ret = APL_setInstallDir(instdir,"%s : âCâôâXâgü[âïɵÄwÆΦ", softname);
  1098. if ( ret )
  1099. goto _TOP;
  1100.  
  1101. dlgTxm = DlgTxm_open(ColBoxNormal);
  1102. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  1103. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1104. "%s", instdir );
  1105. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1106. "é▒é╠âfâBâîâNâgâèé╔âCâôâXâgü[âïé╡é─éαéóéóé┼é╖é⌐üH" );
  1107. DlgTxm_putf( dlgTxm, Fnt16x12, (1),"");
  1108. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 , 1, "", 0, "▓▌╜─░┘ : [Ä└ìs]");
  1109. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200, 0, "", 0, "ĵÅ┴ : [ĵÅ┴]");
  1110. DlgTxm_setSize(dlgTxm,320,40);
  1111. DlgTxm_setPosition(dlgTxm,(1));
  1112. ret = DlgTxm_start(dlgTxm);
  1113. DlgTxm_close(dlgTxm);
  1114. if ( ret != 1 )
  1115. goto _TOP;
  1116.  
  1117.  
  1118.  
  1119. syl_putf("INSTALL START");
  1120. FS_chdrv(srcdrv);
  1121. FS_getFullPn(tmp,srcdir);
  1122. fcopy_att = (0x00000010) | (0x00000100);
  1123. ret = FCOPY_exec(fcopy_att, tmp, instfile, instdir);
  1124.  
  1125.  
  1126. install_end( softname, ret );
  1127.  
  1128. _RET:
  1129. syl_clear();
  1130. return (0);
  1131. }
  1132.  
  1133.  
  1134. int install_calendar()
  1135. {
  1136. int ret, fcopy_att, srcdrv;
  1137. char *softname;
  1138. char *helpfn;
  1139. char *srcdir;
  1140. char instdir[256], *instfile;
  1141. char *dlgTxm;
  1142. char tmp[256];
  1143. static char *tiflist[16] =
  1144. {
  1145. "PIKA12.TIF",
  1146. "PIKA01.TIF",
  1147. "PIKA02.TIF",
  1148. "PIKA03.TIF",
  1149. "PIKA04.TIF",
  1150. "PIKA05.TIF",
  1151. "PIKA06.TIF",
  1152. "PATA06.TIF",
  1153. "PATA07.TIF",
  1154. "PATA08.TIF",
  1155. "PATA09.TIF",
  1156. "PATA10.TIF",
  1157. "PATA11.TIF",
  1158. "PATA12.TIF",
  1159. (0)
  1160. };
  1161.  
  1162. instdir[0] = '\0';
  1163.  
  1164.  
  1165.  
  1166. softname = "Oh!FM TOWNS âIâèâWâiâïâJâîâôâ_ü[CG";
  1167.  
  1168. srcdir = "/OH_TOWNS/CALENDAR";
  1169. helpfn = "/OH_TOWNS/CALENDAR/CALENDAR.GGG";
  1170.  
  1171. srcdrv = toupper(DirStart[0]) - 'A';
  1172.  
  1173. _TOP:
  1174. syl_putf("%s",softname);
  1175. dlgTxm = DlgTxm_open(ColBoxNormal);
  1176. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  1177. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1178. "%s é≡âCâôâXâgü[âïé╡é▄é╖üB", softname );
  1179. DlgTxm_putf( dlgTxm, Fnt16x12, (1), "");
  1180.  
  1181. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 ,
  1182. 1, "", 0, "▓▌╜─░┘ : [Ä└ìs]");
  1183. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'H' , 0x2300 ,
  1184. 2, "inst_help", helpfn, "Éαû╛ : [H]");
  1185. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'D' , 0x2000 ,
  1186. 3, "", 0, "ò\\Ī : [D]");
  1187. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200,
  1188. 4, "", (0), "ĵÅ┴ : [ĵÅ┴]");
  1189.  
  1190. DlgTxm_setSize(dlgTxm,480,40);
  1191. DlgTxm_setPosition(dlgTxm,(1));
  1192. do
  1193. {
  1194. ret = DlgTxm_start(dlgTxm);
  1195. } while ( ret == 2 );
  1196. DlgTxm_close(dlgTxm);
  1197. if ( ret == 3 )
  1198. {
  1199. FS_chdrv( toupper(DirStart[0]) - 'A' );
  1200. FS_chdir( "/OH_TOWNS/CAL_DEMO" );
  1201. tiflist_disp(tiflist);
  1202. goto _TOP;
  1203. } else if ( ret != 1 )
  1204. goto _RET;
  1205.  
  1206.  
  1207. dlgTxm = DlgTxm_open(ColBoxNormal);
  1208. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  1209. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1210. "âCâôâXâgü[âïé╖éΘébéfâfü[â^é╠ëµæ£âfü[â^î`Ä«é≡ÄwÆΦé╡é─é¡é╛é│éóüB" );
  1211. DlgTxm_putf( dlgTxm, Fnt16x12, (1), "");
  1212.  
  1213. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'A' , 0x1E00 ,
  1214. 3, "", 0, "╡╪╝▐┼┘ & BMP : [A]");
  1215. DlgTxm_setBtn( dlgTxm, Fnt16x16, 136, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'O' , 0x1900 ,
  1216. 1, "", 0, "╡╪╝▐┼┘ : [O]");
  1217. DlgTxm_setBtn( dlgTxm, Fnt16x16, 136, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'B' , 0x2E00 ,
  1218. 2, "", 0, "BMP : [B]");
  1219. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200,
  1220. 0, "", (0), "ĵÅ┴ : [ĵÅ┴]");
  1221.  
  1222. DlgTxm_setSize(dlgTxm,480,40);
  1223. DlgTxm_setPosition(dlgTxm,(1));
  1224. ret = DlgTxm_start(dlgTxm);
  1225. DlgTxm_close(dlgTxm);
  1226. switch ( ret )
  1227. {
  1228. case 1: instfile = "*.tif *.jpg       *.doc"; break;
  1229. case 2: instfile = "*.bmp             *.doc"; break;
  1230. case 3: instfile = "*.tif *.jpg *.bmp *.doc"; break;
  1231. default:
  1232. goto _TOP;
  1233. }
  1234.  
  1235.  
  1236. ret = APL_setInstallDir(instdir,"%s : âCâôâXâgü[âïɵÄwÆΦ", softname);
  1237. if ( ret )
  1238. goto _TOP;
  1239.  
  1240. dlgTxm = DlgTxm_open(ColBoxNormal);
  1241. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  1242. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1243. "%s", instdir );
  1244. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1245. "é▒é╠âfâBâîâNâgâèé╔âCâôâXâgü[âïé╡é─éαéóéóé┼é╖é⌐üH" );
  1246. DlgTxm_putf( dlgTxm, Fnt16x12, (1),"");
  1247. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 , 1, "", 0, "▓▌╜─░┘ : [Ä└ìs]");
  1248. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200, 0, "", 0, "ĵÅ┴ : [ĵÅ┴]");
  1249. DlgTxm_setSize(dlgTxm,320,40);
  1250. DlgTxm_setPosition(dlgTxm,(1));
  1251. ret = DlgTxm_start(dlgTxm);
  1252. DlgTxm_close(dlgTxm);
  1253. if ( ret != 1 )
  1254. goto _TOP;
  1255.  
  1256.  
  1257. syl_putf("INSTALL START");
  1258. FS_chdrv(srcdrv);
  1259. FS_getFullPn(tmp,srcdir);
  1260. fcopy_att = (0x00000001) | (0x00000010) | (0x00000100);
  1261. ret = FCOPY_exec(fcopy_att, tmp, instfile, instdir);
  1262.  
  1263.  
  1264. install_end( softname, ret );
  1265.  
  1266. _RET:
  1267. syl_clear();
  1268. return (0);
  1269. }
  1270.  
  1271. int install_qskesmp()
  1272. {
  1273. static char *buf[6] =
  1274. {
  1275. "softname    \"CubicSketchâTâôâvâïô«ëµâfü[â^\"",
  1276. "instfile    /OH_TOWNS/QSKE    \"*.*\"",
  1277. "help        README1.DOC",
  1278. "demo    \"âfâé\"    qskesmp_demo",
  1279. (0)
  1280. };
  1281.  
  1282. return install_exec(buf);
  1283. }
  1284.  
  1285. int qskesmp_demo()
  1286. {
  1287. int ret;
  1288. char *mnu;
  1289.  
  1290. SCN_wrtPage(1);
  1291. if ( (mnu = MNU_open()) == (0) )
  1292. return (0);
  1293. MNU_setTitle( mnu, Fnt16x16, "CubicSketchâTâôâvâïô«ëµâfü[â^" );
  1294. MNU_datAdd( mnu, 0, '1', Rom16x16, 0, "_qske_play", "airport.mve 1", "Æàùñæ╘É¿           (airport.mve)" );
  1295. MNU_datAdd( mnu, 0, '2', Rom16x16, 0, "_qske_play", "house.mve   1", "âEâHü[âNâXâïü[     (house  .mve)" );
  1296. MNU_datAdd( mnu, 0, '3', Rom16x16, 0, "_qske_play", "marinz.mve  1", "èCÆåîÇÅΩ           (marinz .mve)" );
  1297. MNU_datAdd( mnu, 0, '4', Rom16x16, 0, "_qske_play", "martylz.mve 1", "ö¡Éiâ}ü[âeâBZüI    (martylz.mve)" );
  1298. MNU_datAdd( mnu, 0, '5', Rom16x16, 0, "_qske_play", "robo.mve    8", "CGâìâ{âbâg         (robo   .mve)" );
  1299. MNU_datAdd( mnu, 0, '6', Rom16x16, 0, "_qske_play", "robo_h.mve  8", "CGâìâ{âbâg(╠┘╗▓╜▐) (robo_h .mve)" );
  1300.  
  1301. MNU_setPosition(mnu,(1));
  1302. ret = MNU_start(mnu);
  1303. MNU_close(mnu);
  1304. MNU_datClear(mnu);
  1305.  
  1306. return (0);
  1307. }
  1308.  
  1309. int _qske_play( int evNo, char *evDat, char *para)
  1310. {
  1311. char tmp[128], **argv, fn[80];
  1312. int n, argc;
  1313.  
  1314. if ( (argc = DTA_makeArg(para,&argv)) > 0 )
  1315. {
  1316. if ( argc >= 2 )
  1317. {
  1318. strcpy(fn, argv[0]);
  1319. n = atoi(argv[1]);
  1320. }
  1321. DTA_clearArg(argc,argv);
  1322. }
  1323.  
  1324. sprintf(tmp,"%c:/OH_TOWNS/QSKE/%s", (int)(DirStart[0] & 0xFF), fn);
  1325.  
  1326. return mveplay(tmp,n);
  1327. }
  1328.  
  1329. int install_fjcha()
  1330. {
  1331. static char *buf[6] =
  1332. {
  1333. "softname    \"üwòxÄmÆ╩üuÆâüvëµæ£âfü[â^üx\"",
  1334. "instfile    /OH_TOWNS/FJCHA    \"*.tif *.doc\"",
  1335. "help        CHA.DOC",
  1336. (0)
  1337. };
  1338.  
  1339. return install_exec(buf);
  1340. }
  1341. # 14 "insttaro.c"
  1342. char *_tarosc_aplname[(7)] =
  1343. {
  1344. "HEwin" ,
  1345. "EDIA" ,
  1346. "GSPLAY" ,
  1347. "HE386" ,
  1348. "CCI" ,
  1349. "DOS tools",
  1350. "TownsOS tools"
  1351. };
  1352.  
  1353. char _tarosc_skey[(7)] =
  1354. { 'H',
  1355. 'E',
  1356. 'G',
  1357. 'M',
  1358. 'C',
  1359. 'D',
  1360. 'T'
  1361. };
  1362.  
  1363. char _tarosc_instdir[(7)][128];
  1364. char _tarosc_defdir[128];
  1365. int _tarosc_fcopy_att;
  1366.  
  1367. int _hewin_swapDrv, _hewin_init;
  1368. int _edia_swapDrv;
  1369. int _gsplay_midi;
  1370. int _gsplay_rsmidi;
  1371. int _gsplay_internal;
  1372.  
  1373. int _tarosc_setinstdir(char *instdir);
  1374. int _tarosc_setapldir();
  1375. int _tarosc_set_fcopymode();
  1376. int _tarosc_check_config(int item_setup);
  1377. int _hewin_config(char *instdir, int item_setup);
  1378. int _hewin_install(char *instdir,int item_setup);
  1379. int _hewin_setup(char *instdir,int item_setup);
  1380. int _edia_config(char *instdir, int item_setup);
  1381. int _edia_install(char *instdir,int item_setup);
  1382. int _edia_setup(char *instdir,int item_setup);
  1383. int _hewin_edia_setup(char *fn_mac, char *instdir,int item_setup);
  1384. int _chk_pathlist( char *pathlist, char *path );
  1385. int _gsplay_config(char *instdir, int item_setup);
  1386. int _gsplay_install(char *instdir,int item_setup);
  1387. int _gsplay_setup(char *instdir,int item_setup);
  1388. int _he386_install(char *instdir,int item_setup);
  1389. int _cci_install(char *instdir,int item_setup);
  1390. int _dostool_install(char *instdir,int item_setup);
  1391. int _tostool_install(char *instdir,int item_setup);
  1392.  
  1393. char *get_inst_taro_mnu()
  1394. {
  1395. char *mnu;
  1396.  
  1397. if ( (mnu = MNU_open()) == (0) )
  1398. return ((0));
  1399. MNU_datAdd( mnu, 0, 'H', Rom16x16, 0, "tarosc_install" , 0, "TaroPYON SoftWare Collection");
  1400. MNU_datAdd( mnu, 0, 'S', Rom16x16, 0, "tarosdk_install", 0, "âTâCâhâÅü[âNâvâìâOâëâÇÅW" );
  1401. MNU_datAdd( mnu, 0, 0 , Rom16x16, 0, "" , 0, (0) );
  1402. MNU_datAdd( mnu, 0, '1', Rom16x16, 0, "splib_install" , 0, "âëâCâuâëâèüòâ\\ü[âX 1 (SPLIB)" );
  1403. MNU_datAdd( mnu, 0, '2', Rom16x16, 0, "silib_install" , 0, "âëâCâuâëâèüòâ\\ü[âX 2 (SILIB)" );
  1404. MNU_datAdd( mnu, 0, '3', Rom16x16, 0, "dtalib_install" , 0, "âëâCâuâëâèüòâ\\ü[âX 3 (DTALIB)" );
  1405. MNU_datAdd( mnu, 0, '4', Rom16x16, 0, "lhadll_install" , 0, "âëâCâuâëâèüòâ\\ü[âX 4 (LHA.DLL)");
  1406. MNU_setPosition(mnu,-1);
  1407.  
  1408. return (mnu);
  1409. }
  1410.  
  1411. int tarosc_install()
  1412. {
  1413. int ret, i, att, len, drv, argc, item_setup;
  1414. char *fp;
  1415. char **argv, *p, *typename;
  1416. char *instdir;
  1417. char *softname;
  1418. char srcdir[128], instfile[128];
  1419. char helpfn[128];
  1420. char item_ttl[80],item_prog[16], item_para[128];
  1421. int item_att;
  1422. char *dlgTxm;
  1423. char tmp[256], tmp2[256];
  1424.  
  1425. instdir = _tarosc_defdir; instdir[0] = '\0';
  1426. softname = "TaroPYON SoftWare collection";
  1427. _tarosc_fcopy_att = (0x00000001) | (0x00000010) | (0x00000100) | (0x01000000);
  1428.  
  1429. _TOP:
  1430. syl_putf(softname);
  1431. dlgTxm = DlgTxm_open(ColBoxNormal);
  1432. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  1433. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1434. "%s é≡âCâôâXâgü[âïé╡é▄é╖üB", softname );
  1435. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 ,
  1436. 1, "", 0, "▓▌╜─░┘ : [Ä└ìs]");
  1437. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'H' , 0x2300 ,
  1438. 2, "inst_help", "/OH_TOWNS/TAROPYON/taropyon.ggg", "Éαû╛ : [H]");
  1439. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200,
  1440. 3, "", 0, "ĵÅ┴ : [ĵÅ┴]");
  1441. DlgTxm_setSize(dlgTxm,320,40);
  1442. DlgTxm_setPosition(dlgTxm,(1));
  1443. do
  1444. {
  1445. ret = DlgTxm_start(dlgTxm);
  1446. } while ( ret == 2 );
  1447. DlgTxm_close(dlgTxm);
  1448. if ( ret != 1 )
  1449. goto _RET;
  1450.  
  1451.  
  1452. _SETDIR:
  1453. if ( _tarosc_setinstdir(instdir) )
  1454. goto _TOP;
  1455. if ( _tarosc_setapldir() < 0 )
  1456. goto _TOP;
  1457.  
  1458. dlgTxm = DlgTxm_open(ColBoxNormal);
  1459. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  1460. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1461. "ê╚ë║é╠âfâBâîâNâgâèé╔âCâôâXâgü[âïé╡é▄é╖üB" );
  1462. DlgTxm_putf( dlgTxm, Fnt16x12, (1),"");
  1463. ret = 0;
  1464. for ( i = 0; i < (7); ++i )
  1465. {
  1466. if ( _tarosc_instdir[i][0] )
  1467. {
  1468. ret = 1;
  1469. DlgTxm_putf( dlgTxm, Fnt16x12, (0),
  1470. "  %-14s [%s]", _tarosc_aplname[i], _tarosc_instdir[i] );
  1471. }
  1472. }
  1473. DlgTxm_putf( dlgTxm, Fnt16x12, (1),"");
  1474. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1475. "▓▌╜─░┘1 üc âtâ@âCâïé≡òíÄ╩é╡é─TownsMENU é╔âAâCâeâÇôoÿ^");
  1476. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1477. "▓▌╜─░┘2 üc âtâ@âCâïé≡òíÄ╩üiâAâCâeâÇôoÿ^é═é╡é╚éóüj    ");
  1478.  
  1479. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 , 1, "", 0, "▓▌╜─░┘1 : [Ä└ìs]");
  1480. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'C' , 0x2C00 , 2, "", 0, "▓▌╜─░┘2 : [C]");
  1481. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200, 3, "", 0, "ĵÅ┴ : [ĵÅ┴]");
  1482. DlgTxm_setSize(dlgTxm,320,40);
  1483. DlgTxm_setPosition(dlgTxm,(1));
  1484. ret = DlgTxm_start(dlgTxm);
  1485. DlgTxm_close(dlgTxm);
  1486. if ( ret != 1 && ret != 2 )
  1487. goto _TOP;
  1488. item_setup = (ret == 1 ? 1 : 0);
  1489.  
  1490.  
  1491. _tarosc_set_fcopymode();
  1492. if ( _tarosc_instdir[(0) ][0] ) _hewin_config( _tarosc_instdir[(0) ], item_setup);
  1493. if ( _tarosc_instdir[(1) ][0] ) _edia_config( _tarosc_instdir[(1) ], item_setup);
  1494. if ( _tarosc_instdir[(2) ][0] ) _gsplay_config( _tarosc_instdir[(2) ], item_setup);
  1495.  
  1496.  
  1497. ret = _tarosc_check_config(item_setup);
  1498. if ( ret < 0 )
  1499. goto _TOP;
  1500. if ( ret == 0 )
  1501. goto _SETDIR;
  1502.  
  1503.  
  1504. if ( _tarosc_instdir[(0) ][0] ) _hewin_install( _tarosc_instdir[(0) ], item_setup);
  1505. if ( _tarosc_instdir[(1) ][0] ) _edia_install( _tarosc_instdir[(1) ], item_setup);
  1506. if ( _tarosc_instdir[(2) ][0] ) _gsplay_install( _tarosc_instdir[(2) ], item_setup);
  1507. if ( _tarosc_instdir[(3) ][0] ) _he386_install( _tarosc_instdir[(3) ], item_setup);
  1508. if ( _tarosc_instdir[(4) ][0] ) _cci_install( _tarosc_instdir[(4) ], item_setup);
  1509. if ( _tarosc_instdir[(5)][0] ) _dostool_install(_tarosc_instdir[(5)], item_setup);
  1510. if ( _tarosc_instdir[(6)][0] ) _tostool_install(_tarosc_instdir[(6)], item_setup);
  1511. install_end( softname, 0 );
  1512.  
  1513. _RET:
  1514. syl_clear();
  1515.  
  1516. return ((0));
  1517. }
  1518.  
  1519. int _tarosc_setinstdir(char *instdir)
  1520. {
  1521. char tmp[256];
  1522.  
  1523. if ( APL_setInstallDir(instdir,"âCâôâXâgü[âïɵÄwÆΦ") )
  1524. return ((-1));
  1525.  
  1526. strcpy(tmp,instdir);
  1527. add_path_fn(tmp,"");
  1528.  
  1529. sprintf( _tarosc_instdir[(0) ], "%s%s", tmp, "HEWIN" );
  1530. sprintf( _tarosc_instdir[(1) ], "%s%s", tmp, "EDIA" );
  1531. sprintf( _tarosc_instdir[(2) ], "%s%s", tmp, "GSPLAY" );
  1532. sprintf( _tarosc_instdir[(3) ], "%s%s", tmp, "HE386" );
  1533. sprintf( _tarosc_instdir[(4) ], "%s%s", tmp, "CCI" );
  1534. sprintf( _tarosc_instdir[(5) ], "%s%s", tmp, "DOSTOOL");
  1535. sprintf( _tarosc_instdir[(6) ], "%s%s", tmp, "TOSTOOL");
  1536.  
  1537. return ((0));
  1538. }
  1539.  
  1540. int _tarosc_setapldir()
  1541. {
  1542. char *mnu, *mnuapl[(7)];
  1543. char *dir;
  1544. int i, flag, ret;
  1545.  
  1546.  
  1547. for ( i = 0; i < (7); ++i )
  1548. {
  1549. if ( (mnuapl[i] = MNU_open()) != (0) )
  1550. {
  1551. MNU_datAdd( mnuapl[i], 0, '1', Rom16x16, i, "_setdir_tarosc" , (0), "Set directory");
  1552. MNU_datAdd( mnuapl[i], 0, '0', Rom16x16, i, "_noinstall_tarosc", (0), "No install" );
  1553. MNU_setPosition(mnuapl[i],-1);
  1554. }
  1555. }
  1556.  
  1557. do
  1558. {
  1559. if ( (mnu = MNU_open()) == (0) )
  1560. return ((-1));
  1561.  
  1562. for ( i = 0; i < (7); ++i )
  1563. {
  1564. dir = _tarosc_instdir[i];
  1565. if ( *dir == '\0' )
  1566. dir = "No install";
  1567. MNU_mnuAdd( mnu, 0, _tarosc_skey[i], Fnt16x16, mnuapl[i],
  1568. "%-14s [%s]", _tarosc_aplname[i], dir);
  1569. }
  1570. MNU_datAdd( mnu, 0, 0 , (0) , 0, "", 0, (0) );
  1571. MNU_datAdd( mnu, 0, 'S', Rom16x16, 1, "", 0, " <<< É▌ÆΦÅIù╣ >>>");
  1572. MNU_setPosition(mnu,(1));
  1573. ret = MNU_start(mnu);
  1574. MNU_close(mnu);
  1575. MNU_datClear(mnu);
  1576. } while ( ret == 0 );
  1577.  
  1578. flag = 0;
  1579. for ( i = 0; i < (7); ++i )
  1580. {
  1581. if ( _tarosc_instdir[i][0] )
  1582. flag = 1;
  1583. MNU_datClear( mnuapl[i] );
  1584. }
  1585. if ( flag == 0 )
  1586. ret = -1;
  1587.  
  1588. return (ret);
  1589. }
  1590.  
  1591. int _setdir_tarosc(int evNo, char *evdat)
  1592. {
  1593. char *aplname;
  1594. char *instdir;
  1595.  
  1596. instdir = _tarosc_instdir[evNo];
  1597. if ( *instdir == '\0' )
  1598. strcpy(instdir,_tarosc_defdir);
  1599. APL_setInstallDir(instdir,"%s âCâôâXâgü[âïɵÄwÆΦ", _tarosc_aplname[evNo]);
  1600. return (0);
  1601. }
  1602.  
  1603. int _noinstall_tarosc(int evNo, char *evdat)
  1604. {
  1605. _tarosc_instdir[evNo][0] = '\0';
  1606. return (0);
  1607. }
  1608. # 285 "insttaro.c"
  1609. int _tarosc_set_fcopymode()
  1610. {
  1611. int ret;
  1612. char *dlgTxm;
  1613.  
  1614. dlgTxm = DlgTxm_open(ColBoxNormal);
  1615. DlgTxm_setTitle(dlgTxm,Fnt16x16,"âtâ@âCâïòíÄ╩ô«ì∞é╠É▌ÆΦ");
  1616. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1617. "âCâôâXâgü[âïÄ₧é╠âtâ@âCâïòíÄ╩ô«ì∞é≡ÄwÆΦé╡é─é¡é╛é│éóüB");
  1618. DlgTxm_putf( dlgTxm, Fnt16x12, (1), "");
  1619. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1620. "âmü[â}âï üc Æ╩Åφé╠òíÄ╩                                    ");
  1621. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1622. "ô·òtöΣèr üc â^âCâÇâXâ^âôâvé≡öΣèré╡é─ÉVé╡éóâtâ@âCâïé╠é▌òíÄ╩");
  1623.  
  1624. DlgTxm_setBtn( dlgTxm, Fnt16x16, 160, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 ,
  1625. 0, "", 0, "âmü[â}âï : [Ä└ìs]");
  1626. DlgTxm_setBtn( dlgTxm, Fnt16x16, 160, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'T' , 0x1500 ,
  1627. 1, "", 0, "ô·òtöΣèr : [T]");
  1628. DlgTxm_setSize(dlgTxm,480,40);
  1629. DlgTxm_setPosition(dlgTxm,(1));
  1630. do
  1631. {
  1632. ret = DlgTxm_start(dlgTxm);
  1633. } while ( ret < 0 );
  1634.  
  1635. DlgTxm_close(dlgTxm);
  1636.  
  1637. _tarosc_fcopy_att = (0x00000001) | (0x00000010) | (0x00000100) | (0x01000000);
  1638. if ( ret )
  1639. _tarosc_fcopy_att |= (0x00000200);
  1640.  
  1641. return ((0));
  1642. }
  1643. # 325 "insttaro.c"
  1644. int _tarosc_check_config(int item_setup)
  1645. {
  1646. int ret, i;
  1647. char *dlgTxm;
  1648. char tmp[256], *msg;
  1649.  
  1650. dlgTxm = DlgTxm_open(ColBoxNormal);
  1651. DlgTxm_setTitle(dlgTxm,Fnt16x16,"É▌ÆΦé╠èmöF");
  1652. DlgTxm_putf( dlgTxm, Fnt16x16, (0),
  1653. "  Ä└ìsâtâ@âCâïé╠âAâCâeâÇôoÿ^  üc [%s]",
  1654. item_setup ? "ìséñ" : "ìséφé╚éó" );
  1655. DlgTxm_putf( dlgTxm, Fnt16x16, (0),
  1656. "  âtâ@âCâïòíÄ╩ô«ì∞âéü[âh      üc [%s]",
  1657. (_tarosc_fcopy_att & (0x00000200)) ? "ô·òtöΣèr" : "âmü[â}âï" );
  1658.  
  1659. if ( _tarosc_instdir[(0)][0] )
  1660. {
  1661. DlgTxm_putf( dlgTxm, Fnt16x16, (0),
  1662. "  HEwin Åëè·É▌ÆΦ              üc [%s]",
  1663. _hewin_init ? "é╖éΘ" : "é╡é╚éó");
  1664.  
  1665. if ( item_setup )
  1666. {
  1667. if ( _hewin_swapDrv < 0 )
  1668. msg = "ÄwÆΦé╚é╡";
  1669. else
  1670. {
  1671. msg = tmp;
  1672. sprintf(msg,"%c:", _hewin_swapDrv);
  1673. }
  1674. DlgTxm_putf( dlgTxm, Fnt16x16, (0),
  1675. "  HEwin ì∞ï╞âhâëâCâu          üc [%s]", msg);
  1676. }
  1677. }
  1678. if ( _tarosc_instdir[(1)][0] )
  1679. {
  1680. if ( item_setup )
  1681. {
  1682. if ( _edia_swapDrv < 0 )
  1683. msg = "ÄwÆΦé╚é╡";
  1684. else
  1685. {
  1686. msg = tmp;
  1687. sprintf(msg,"%c:", _hewin_swapDrv);
  1688. }
  1689. DlgTxm_putf( dlgTxm, Fnt16x16, (0),
  1690. "  EDIA ì∞ï╞âhâëâCâu           üc [%s]", msg);
  1691. }
  1692. }
  1693. if ( _tarosc_instdir[(2)][0] )
  1694. {
  1695. if ( item_setup && (_gsplay_midi >= 0 || _gsplay_rsmidi || _gsplay_internal >=0) )
  1696. {
  1697. if ( _gsplay_midi < 0 )
  1698. {
  1699. msg = "ûóÄgùp";
  1700. } else
  1701. {
  1702. msg = tmp;
  1703. sprintf(msg,"port %c", _gsplay_midi + 'A' );
  1704. }
  1705. DlgTxm_putf( dlgTxm, Fnt16x16, (0),
  1706. "  GSPLAY ëëætâfü[â^Åoù═ɵ     üc [MIDI card (%s)]", msg);
  1707.  
  1708. if ( _gsplay_rsmidi >= 0 )
  1709. DlgTxm_putf( dlgTxm, Fnt16x16, (0),
  1710. "                              üc [RS-232C MIDI]");
  1711. if ( _gsplay_internal >= 0 )
  1712. DlgTxm_putf( dlgTxm, Fnt16x16, (0),
  1713. "                              üc [ôαæáë╣î╣]");
  1714. }
  1715. }
  1716.  
  1717. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 ,
  1718. 1, "", 0, "▓▌╜─░┘ : [Ä└ìs]");
  1719. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'R' , 0x1400 ,
  1720. 2, "", 0, "ì─É▌ÆΦ : [R]");
  1721. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200,
  1722. 3, "", 0, "ĵÅ┴ : [ĵÅ┴]");
  1723. DlgTxm_setSize(dlgTxm,480,40);
  1724. DlgTxm_setPosition(dlgTxm,(1));
  1725. ret = DlgTxm_start(dlgTxm);
  1726. DlgTxm_close(dlgTxm);
  1727.  
  1728. switch ( ret )
  1729. {
  1730. case 1:
  1731. return (1);
  1732. case 2:
  1733. return (0);
  1734. default:
  1735. return (-1);
  1736. }
  1737. }
  1738. # 424 "insttaro.c"
  1739. int _hewin_config(char *instdir, int item_setup)
  1740. {
  1741. int ret;
  1742. char *dlgTxm;
  1743. char *dlgGets;
  1744. char buf[8];
  1745.  
  1746. _hewin_init = 0;
  1747.  
  1748. dlgTxm = DlgTxm_open(ColBoxNormal);
  1749. DlgTxm_setTitle(dlgTxm,Fnt16x16,"HEwin è┬ï½É▌ÆΦ");
  1750. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1751. "âCâôâXâgü[âïÄ₧é╔HEwin é╠Åëè·É▌ÆΦé≡ìséóé▄é╖é⌐üH");
  1752. DlgTxm_putf( dlgTxm, Fnt16x12, (1), "");
  1753. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1754. "ÉVïKé╔HEwin é≡âCâôâXâgü[âïé╖éΘé╞é½é═[Åëè·É▌ÆΦ]é≡ÄwÆΦé╡é─é¡é╛é│éóüB");
  1755.  
  1756. DlgTxm_putf( dlgTxm, Fnt16x12, (1),"");
  1757. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1758. "üª  Åëè·É▌ÆΦé≡ÄwÆΦé╖éΘé╞üAè∙é╔âCâôâXâgü[âïé│éΩé─éóéΘ");
  1759. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  1760. "    HEwin é╠É▌ÆΦÅεò±é═Ä╕éφéΩé▄é╖üB                  ");
  1761.  
  1762. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'I' , 0x1800 ,
  1763. 1, "", 0, "Åëè·É▌ÆΦ : [I]");
  1764. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'N' , 0x2F00 ,
  1765. 0, "", 0, "é╚é╡ : [N]");
  1766.  
  1767. DlgTxm_setSize(dlgTxm,320,40);
  1768. DlgTxm_setPosition(dlgTxm,(1));
  1769. do
  1770. {
  1771. ret = DlgTxm_start(dlgTxm);
  1772. } while ( ret < 0 );
  1773. DlgTxm_close(dlgTxm);
  1774. _hewin_init = ret;
  1775.  
  1776. _hewin_swapDrv = -1;
  1777. if ( item_setup )
  1778. {
  1779. if ( (dlgGets = DlgGets_open()) == (0) )
  1780. return ((-1));
  1781.  
  1782. DlgGets_setTitle(dlgGets,Fnt16x16,"HEwin è┬ï½É▌ÆΦ");
  1783. buf[0] = '\0';
  1784. DlgGets_setSize(dlgGets,320,64);
  1785. DlgGets_putf( dlgGets, Fnt16x16, 1, "ì∞ï╞âhâëâCâué≡ÄwÆΦé╡é─é¡é╛é│éóüiùßüFüuDüvüjüB" );
  1786. DlgGets_setPosition(dlgGets,(1));
  1787. if ( DlgGets_start(dlgGets,3,buf) == (0) )
  1788. {
  1789. if ( isalpha(buf[0]) )
  1790. _hewin_swapDrv = toupper(buf[0]);
  1791. else
  1792. _hewin_swapDrv = -1;
  1793. }
  1794. DlgGets_close(dlgGets);
  1795. }
  1796. return ((0));
  1797. }
  1798.  
  1799. int _hewin_install(char *instdir,int item_setup)
  1800. {
  1801. int ret, att, len, drv;
  1802. char *srcdir, *instfile;
  1803. char *item_prog, *item_ttl, item_para[128];
  1804. int item_att;
  1805. char tmp[256], tmp2[256];
  1806.  
  1807. srcdir = "/OH_TOWNS/TAROPYON/HEWIN";
  1808. instfile = "*.exp *.cci *.c *.h *.rex *.dll *.exe *.doc *.hlp *.lst *.tbl";
  1809. item_prog = "HEWIN.EXP";
  1810. item_ttl = "HEwin";
  1811. item_para[0] = '\0';
  1812. item_att = 2;
  1813.  
  1814. syl_putf("HEWIN INSTALL");
  1815. FS_chdrv( toupper(DirStart[0]) - 'A' );
  1816. if ( *srcdir == '\0' || *srcdir == '.' )
  1817. {
  1818. strcpy(tmp,DirStart);
  1819. ret = strlen(tmp);
  1820. if ( ret > 3 && FS_isDelim(tmp[ret-1]) )
  1821. tmp[ret-1] = '\0';
  1822. } else
  1823. {
  1824. if ( FS_isDelim(*srcdir) )
  1825. strcpy(tmp,srcdir);
  1826. else
  1827. sprintf(tmp,"%s%s",DirStart, srcdir);
  1828. }
  1829. FS_getFullPn(tmp2,tmp);
  1830. srcdir = tmp2;
  1831. att = _tarosc_fcopy_att;
  1832. ret = FCOPY_exec(att, srcdir, instfile, instdir);
  1833.  
  1834. if ( _hewin_init )
  1835. {
  1836. instfile = "*.apl *.env *.ini *.itm *.tif";
  1837. att = _tarosc_fcopy_att & (~(0x00000001));
  1838. ret = FCOPY_exec(att, srcdir, instfile, instdir);
  1839. }
  1840.  
  1841.  
  1842. syl_putf("HEWIN CUSTOMIZE");
  1843. _hewin_setup(instdir,item_setup);
  1844.  
  1845. if ( ret == (0) && item_setup != 0 )
  1846. {
  1847. syl_putf("HEWIN ITEM SETUP");
  1848. if ( isalpha(_hewin_swapDrv) )
  1849. sprintf(item_para,"-swapDrv %c", _hewin_swapDrv);
  1850. drv = toupper(instdir[0]) - 'A';
  1851. strcpy(tmp,instdir);
  1852. add_path_fn(tmp,item_prog);
  1853. item_setApl( drv, 1024, item_ttl, tmp, item_para, item_att );
  1854. }
  1855.  
  1856. return (ret);
  1857. }
  1858.  
  1859. int _hewin_setup(char *instdir,int item_setup)
  1860. {
  1861. return _hewin_edia_setup("hewin.mac", instdir, item_setup);
  1862. }
  1863. # 553 "insttaro.c"
  1864. int _edia_config(char *instdir, int item_setup)
  1865. {
  1866. int ret;
  1867. char *dlgGets;
  1868. char buf[8];
  1869.  
  1870. _edia_swapDrv = -1;
  1871. if ( item_setup )
  1872. {
  1873. if ( (dlgGets = DlgGets_open()) == (0) )
  1874. return ((-1));
  1875.  
  1876. DlgGets_setTitle(dlgGets,Fnt16x16,"EDIA è┬ï½É▌ÆΦ");
  1877. buf[0] = '\0';
  1878. DlgGets_setSize(dlgGets,320,64);
  1879. DlgGets_putf( dlgGets, Fnt16x16, 1, "ì∞ï╞âhâëâCâué≡ÄwÆΦé╡é─é¡é╛é│éóüiùßüFüuDüvüjüB" );
  1880. DlgGets_setPosition(dlgGets,(1));
  1881. if ( DlgGets_start(dlgGets,3,buf) == (0) )
  1882. {
  1883. if ( isalpha(buf[0]) )
  1884. _edia_swapDrv = toupper(buf[0]);
  1885. else
  1886. _edia_swapDrv = -1;
  1887. }
  1888. DlgGets_close(dlgGets);
  1889. }
  1890. return ((0));
  1891. }
  1892.  
  1893. int _edia_install(char *instdir,int item_setup)
  1894. {
  1895. int ret, att, len, drv;
  1896. char *srcdir, *instfile;
  1897. char *item_prog, *item_ttl, item_para[128];
  1898. int item_att;
  1899. char tmp[256], tmp2[256];
  1900.  
  1901. srcdir = "/OH_TOWNS/TAROPYON/EDIA";
  1902. instfile = "*.exp *.cci *.c *.h *.rex *.dll *.doc";
  1903. item_prog = "EDIA.EXP";
  1904. item_ttl = "EDIA";
  1905. item_para[0] = '\0';
  1906. item_att = 2;
  1907.  
  1908. syl_putf("EDIA INSTALL START");
  1909. FS_chdrv( toupper(DirStart[0]) - 'A' );
  1910. if ( *srcdir == '\0' || *srcdir == '.' )
  1911. {
  1912. strcpy(tmp,DirStart);
  1913. ret = strlen(tmp);
  1914. if ( ret > 3 && FS_isDelim(tmp[ret-1]) )
  1915. tmp[ret-1] = '\0';
  1916. } else
  1917. {
  1918. if ( FS_isDelim(*srcdir) )
  1919. strcpy(tmp,srcdir);
  1920. else
  1921. sprintf(tmp,"%s%s",DirStart, srcdir);
  1922. }
  1923. FS_getFullPn(tmp2,tmp);
  1924. srcdir = tmp2;
  1925. att = _tarosc_fcopy_att;
  1926. ret = FCOPY_exec(att, srcdir, instfile, instdir);
  1927.  
  1928.  
  1929. syl_putf("EDIA CUSTOMIZE");
  1930. _edia_setup(instdir,item_setup);
  1931.  
  1932. if ( ret == (0) && item_setup != 0 )
  1933. {
  1934. syl_putf("EDIA ITEM SETUP");
  1935. if ( isalpha(_edia_swapDrv) )
  1936. sprintf(item_para,"-swapDrv %c", _edia_swapDrv);
  1937. drv = toupper(instdir[0]) - 'A';
  1938. strcpy(tmp,instdir);
  1939. add_path_fn(tmp,item_prog);
  1940. item_setApl( drv, 1024, item_ttl, tmp, item_para, item_att );
  1941. }
  1942.  
  1943. return (ret);
  1944. }
  1945.  
  1946. int _edia_setup(char *instdir,int item_setup)
  1947. {
  1948. return _hewin_edia_setup("edia.mac", instdir, item_setup);
  1949. }
  1950.  
  1951. int _hewin_edia_setup(char *fn_mac, char *instdir,int item_setup)
  1952. {
  1953. char *p, *s, *dir, *pathInst, fnMac[256], path[1024];
  1954. char *MACROKEY_EXPSEARCH_PATH;
  1955. char *amac;
  1956.  
  1957. pathInst = instdir;
  1958. MACROKEY_EXPSEARCH_PATH = "Exp_search_path";
  1959.  
  1960. strcpy(fnMac,pathInst);
  1961. add_path_fn(fnMac,fn_mac);
  1962.  
  1963. if ( (amac = AMAC_allocWork(0)) == (0) )
  1964. return ((-1));
  1965. AMAC_load( amac, fnMac );
  1966.  
  1967. if ( (p = AMAC_getName( amac, MACROKEY_EXPSEARCH_PATH)) == (0) || *p == '\0' )
  1968. {
  1969. path[0] = '\0';
  1970. p = path;
  1971.  
  1972. dir = _tarosc_instdir[(2)];
  1973. if ( *dir )
  1974. {
  1975. if ( p != path ) { *p = ';'; ++p; }
  1976. strcpy(p, dir);
  1977. p += strlen(dir);
  1978. }
  1979. dir = _tarosc_instdir[(3)];
  1980. if ( *dir )
  1981. {
  1982. if ( p != path ) { *p = ';'; ++p; }
  1983. strcpy(p, dir);
  1984. p += strlen(dir);
  1985. }
  1986. dir = _tarosc_instdir[(4)];
  1987. if ( *dir )
  1988. {
  1989. if ( p != path ) { *p = ';'; ++p; }
  1990. strcpy(p, dir);
  1991. p += strlen(dir);
  1992. }
  1993. dir = _tarosc_instdir[(6)];
  1994. if ( *dir )
  1995. {
  1996. if ( p != path ) { *p = ';'; ++p; }
  1997. strcpy(p, dir);
  1998. p += strlen(dir);
  1999. }
  2000. if ( p != path )
  2001. AMAC_setKey( amac, MACROKEY_EXPSEARCH_PATH, path );
  2002. } else
  2003. {
  2004. strcpy(path,p);
  2005.  
  2006. dir = _tarosc_instdir[(2)];
  2007. if ( _chk_pathlist(path,dir) == 0 )
  2008. {
  2009. strcat(path,";");
  2010. strcat(path,dir);
  2011. }
  2012. dir = _tarosc_instdir[(3)];
  2013. if ( _chk_pathlist(path,dir) == 0 )
  2014. {
  2015. strcat(path,";");
  2016. strcat(path,dir);
  2017. }
  2018. dir = _tarosc_instdir[(4)];
  2019. if ( _chk_pathlist(path,dir) == 0 )
  2020. {
  2021. strcat(path,";");
  2022. strcat(path,dir);
  2023. }
  2024. dir = _tarosc_instdir[(6)];
  2025. if ( _chk_pathlist(path,dir) == 0 )
  2026. {
  2027. strcat(path,";");
  2028. strcat(path,dir);
  2029. }
  2030. AMAC_setKey( amac, MACROKEY_EXPSEARCH_PATH, path );
  2031. }
  2032. AMAC_save( amac, fnMac, fn_mac);
  2033. AMAC_freeWork(amac);
  2034.  
  2035. return ((0));
  2036. }
  2037.  
  2038. int _chk_pathlist( char *pathlist, char *path )
  2039. {
  2040. char s1[1024], s2[256];
  2041.  
  2042. strcpy(s1,pathlist); FS_strupr(s1);
  2043. strcpy(s2,path); FS_strupr(s2);
  2044. if ( strstr(s1,s2) == (0) )
  2045. return (0);
  2046. else
  2047. return (1);
  2048. }
  2049. # 743 "insttaro.c"
  2050. int _gsplay_config(char *instdir, int item_setup)
  2051. {
  2052. int ret;
  2053. char *mnu_midi, *mnu_internal, *mnu_rsmidi, *mnu;
  2054. char tmp[128], *msg;
  2055.  
  2056. _gsplay_midi = 0;
  2057. _gsplay_rsmidi = -1;
  2058. _gsplay_internal = -1;
  2059.  
  2060. if ( item_setup )
  2061. {
  2062. mnu_midi = MNU_open();
  2063. mnu_rsmidi = MNU_open();
  2064. mnu_internal = MNU_open();
  2065.  
  2066. MNU_datAdd( mnu_midi , 0, 'A', Rom16x16, 0x01, "", (0), "port A (card-1)");
  2067. MNU_datAdd( mnu_midi , 0, 'B', Rom16x16, 0x02, "", (0), "port B (card-1)");
  2068. MNU_datAdd( mnu_midi , 0, 'C', Rom16x16, 0x03, "", (0), "port C (card-2)");
  2069. MNU_datAdd( mnu_midi , 0, 'D', Rom16x16, 0x04, "", (0), "port D (card-2)");
  2070. MNU_datAdd( mnu_midi , 0, 'E', Rom16x16, 0x05, "", (0), "port E (card-3)");
  2071. MNU_datAdd( mnu_midi , 0, 'F', Rom16x16, 0x06, "", (0), "port F (card-3)");
  2072. MNU_datAdd( mnu_midi , 0, 'G', Rom16x16, 0x07, "", (0), "port G (card-4)");
  2073. MNU_datAdd( mnu_midi , 0, 'H', Rom16x16, 0x08, "", (0), "port H (card-4)");
  2074. MNU_datAdd( mnu_midi , 0, 0 , (0) , 0, "", 0, (0) );
  2075. MNU_datAdd( mnu_midi , 0, 'O', Rom16x16, 0x00, "", (0), "MIDI device not use");
  2076. MNU_setPosition(mnu_midi,-1);
  2077.  
  2078. MNU_datAdd( mnu_rsmidi , 0, '1', Rom16x16, 0x21, "", (0), "ON  Ägéñ");
  2079. MNU_datAdd( mnu_rsmidi , 0, '0', Rom16x16, 0x20, "", (0), "OFF Ägéφé╚éó");
  2080. MNU_setPosition(mnu_rsmidi,-1);
  2081.  
  2082. MNU_datAdd( mnu_internal, 0, '1', Rom16x16, 0x31, "", (0), "ON  Ägéñ");
  2083. MNU_datAdd( mnu_internal, 0, '0', Rom16x16, 0x30, "", (0), "OFF Ägéφé╚éó");
  2084. MNU_setPosition(mnu_internal,-1);
  2085.  
  2086. do
  2087. {
  2088. if ( (mnu = MNU_open()) == (0) )
  2089. break;
  2090. MNU_setTitle( mnu, Fnt16x16, "GSPLAY ëëætâfü[â^Åoù═âfâoâCâX" );
  2091. if ( _gsplay_midi < 0 )
  2092. {
  2093. msg = "not use";
  2094. } else
  2095. {
  2096. msg = tmp;
  2097. sprintf(msg,"port %c",_gsplay_midi + 'A' );
  2098. }
  2099. MNU_mnuAdd( mnu, 0, 'M', Fnt16x16, mnu_midi , "MIDI         [%s]", msg);
  2100.  
  2101. msg = (_gsplay_rsmidi < 0) ? "not use" : "ON";
  2102. MNU_mnuAdd( mnu, 0, 'I', Fnt16x16, mnu_rsmidi , "RS-232C MIDI [%s]", msg);
  2103.  
  2104. msg = (_gsplay_internal < 0) ? "not use" : "ON";
  2105. MNU_mnuAdd( mnu, 0, 'I', Fnt16x16, mnu_internal, "ôαæáë╣î╣     [%s]", msg);
  2106.  
  2107. MNU_datAdd( mnu, 0, 0 , (0) , 0, "", 0, (0) );
  2108. MNU_datAdd( mnu, 0, 'S', Rom16x16, 0xFF, "", 0, " <<< É▌ÆΦÅIù╣ >>>");
  2109.  
  2110. MNU_setPosition(mnu,(1));
  2111. ret = MNU_start(mnu);
  2112. if ( ret >= 0x01 && ret <= 0x08 )
  2113. {
  2114. _gsplay_midi = ret - 0x01;
  2115. } else
  2116. {
  2117. switch ( ret )
  2118. {
  2119. case 0x00: _gsplay_midi = -1; break;
  2120. case 0x20: _gsplay_rsmidi = -1; break;
  2121. case 0x21: _gsplay_rsmidi = 0; break;
  2122. case 0x30: _gsplay_internal = -1; break;
  2123. case 0x31: _gsplay_internal = 0; break;
  2124. }
  2125. }
  2126. MNU_close(mnu);
  2127. MNU_datClear(mnu);
  2128. } while ( ret != 0xFF );
  2129. MNU_datClear(mnu_midi );
  2130. MNU_datClear(mnu_rsmidi );
  2131. MNU_datClear(mnu_internal);
  2132. }
  2133. return ((0));
  2134. }
  2135.  
  2136. int _gsplay_install(char *instdir,int item_setup)
  2137. {
  2138. int ret, att, len, drv;
  2139. char *srcdir, *instfile;
  2140. char *item_prog, *item_ttl, item_para[128];
  2141. int item_att;
  2142. char tmp[256], tmp2[256], ttl[80];
  2143.  
  2144. srcdir = "/OH_TOWNS/TAROPYON/GSPLAY";
  2145. instfile = "*.exp *.dat *.gsd *.doc *.mex *.mid *.mtk *.kok *.tif";
  2146. item_prog = "GSPLAY.EXP";
  2147. item_ttl = "GSPLAY/pure";
  2148. item_para[0] = '\0';
  2149. item_att = 2;
  2150.  
  2151. syl_putf("GSPLAY INSTALL START");
  2152. FS_chdrv( toupper(DirStart[0]) - 'A' );
  2153. if ( *srcdir == '\0' || *srcdir == '.' )
  2154. {
  2155. strcpy(tmp,DirStart);
  2156. ret = strlen(tmp);
  2157. if ( ret > 3 && FS_isDelim(tmp[ret-1]) )
  2158. tmp[ret-1] = '\0';
  2159. } else
  2160. {
  2161. if ( FS_isDelim(*srcdir) )
  2162. strcpy(tmp,srcdir);
  2163. else
  2164. sprintf(tmp,"%s%s",DirStart, srcdir);
  2165. }
  2166. FS_getFullPn(tmp2,tmp);
  2167. srcdir = tmp2;
  2168. att = _tarosc_fcopy_att;
  2169. ret = FCOPY_exec(att, srcdir, instfile, instdir);
  2170.  
  2171.  
  2172. syl_putf("GSPLAY CUSTOMIZE");
  2173. _gsplay_setup(instdir,item_setup);
  2174.  
  2175. if ( ret == (0) && item_setup != 0 )
  2176. {
  2177. syl_putf("GSPLAY ITEM SETUP");
  2178.  
  2179. strcpy(tmp,instdir);
  2180. add_path_fn(tmp,item_prog);
  2181.  
  2182. if ( _gsplay_midi >= 0 )
  2183. {
  2184. item_ttl = "GSPLAY/pure (MIDI)";
  2185. sprintf(item_para,"-gsPort %c", _gsplay_midi + 'A');
  2186. item_setApl( drv, 1024, item_ttl, tmp, item_para, item_att );
  2187. }
  2188. if ( _gsplay_internal >= 0 )
  2189. {
  2190. item_ttl = "GSPLAY/pure (ôαæá)";
  2191. strcpy(item_para,"-gsPort A -intPort A");
  2192. item_setApl( drv, 1024, item_ttl, tmp, item_para, item_att );
  2193. }
  2194. if ( _gsplay_rsmidi >= 0 )
  2195. {
  2196. item_ttl = "GSPLAY/pure (RS)";
  2197. strcpy(item_para,"-rsmidi -gsPort R");
  2198. item_setApl( drv, 1024, item_ttl, tmp, item_para, item_att );
  2199. }
  2200. }
  2201.  
  2202. return (ret);
  2203. }
  2204.  
  2205. int _gsplay_setup(char *instdir,int item_setup)
  2206. {
  2207. return ((0));
  2208. }
  2209. # 907 "insttaro.c"
  2210. int _he386_install(char *instdir,int item_setup)
  2211. {
  2212. int ret, att, len, drv;
  2213. char *srcdir, *instfile;
  2214. char tmp[256], tmp2[256];
  2215.  
  2216. srcdir = "/OH_TOWNS/TAROPYON/HE386";
  2217. instfile = "*.exp *.dll *.cci *.c *.h *.doc *.mml *.def";
  2218.  
  2219. syl_putf("HE386 INSTALL START");
  2220. FS_chdrv( toupper(DirStart[0]) - 'A' );
  2221. if ( *srcdir == '\0' || *srcdir == '.' )
  2222. {
  2223. strcpy(tmp,DirStart);
  2224. ret = strlen(tmp);
  2225. if ( ret > 3 && FS_isDelim(tmp[ret-1]) )
  2226. tmp[ret-1] = '\0';
  2227. } else
  2228. {
  2229. if ( FS_isDelim(*srcdir) )
  2230. strcpy(tmp,srcdir);
  2231. else
  2232. sprintf(tmp,"%s%s",DirStart, srcdir);
  2233. }
  2234. FS_getFullPn(tmp2,tmp);
  2235. srcdir = tmp2;
  2236. att = _tarosc_fcopy_att;
  2237. ret = FCOPY_exec(att, srcdir, instfile, instdir);
  2238.  
  2239. return (ret);
  2240. }
  2241. # 944 "insttaro.c"
  2242. int _cci_install(char *instdir,int item_setup)
  2243. {
  2244. int ret, att, len, drv;
  2245. char *srcdir, *instfile;
  2246. char tmp[256], tmp2[256];
  2247.  
  2248. srcdir = "/OH_TOWNS/TAROPYON/CCI";
  2249. instfile = "*.exp *.dll *.doc *.lst *.h *.c *.bat *.exe";
  2250.  
  2251. syl_putf("CCI INSTALL START");
  2252. FS_chdrv( toupper(DirStart[0]) - 'A' );
  2253. if ( *srcdir == '\0' || *srcdir == '.' )
  2254. {
  2255. strcpy(tmp,DirStart);
  2256. ret = strlen(tmp);
  2257. if ( ret > 3 && FS_isDelim(tmp[ret-1]) )
  2258. tmp[ret-1] = '\0';
  2259. } else
  2260. {
  2261. if ( FS_isDelim(*srcdir) )
  2262. strcpy(tmp,srcdir);
  2263. else
  2264. sprintf(tmp,"%s%s",DirStart, srcdir);
  2265. }
  2266. FS_getFullPn(tmp2,tmp);
  2267. srcdir = tmp2;
  2268. att = _tarosc_fcopy_att;
  2269. ret = FCOPY_exec(att, srcdir, instfile, instdir);
  2270.  
  2271. return (ret);
  2272. }
  2273. # 980 "insttaro.c"
  2274. int _dostool_install(char *instdir,int item_setup)
  2275. {
  2276. int ret, att, len, drv;
  2277. char *srcdir, *instfile;
  2278. char tmp[256], tmp2[256];
  2279.  
  2280. srcdir = "/OH_TOWNS/TAROPYON/DOSTOOL";
  2281. instfile = "*.exe *.doc";
  2282.  
  2283. syl_putf("DOS TOOL INSTALL START");
  2284. FS_chdrv( toupper(DirStart[0]) - 'A' );
  2285. if ( *srcdir == '\0' || *srcdir == '.' )
  2286. {
  2287. strcpy(tmp,DirStart);
  2288. ret = strlen(tmp);
  2289. if ( ret > 3 && FS_isDelim(tmp[ret-1]) )
  2290. tmp[ret-1] = '\0';
  2291. } else
  2292. {
  2293. if ( FS_isDelim(*srcdir) )
  2294. strcpy(tmp,srcdir);
  2295. else
  2296. sprintf(tmp,"%s%s",DirStart, srcdir);
  2297. }
  2298. FS_getFullPn(tmp2,tmp);
  2299. srcdir = tmp2;
  2300. att = _tarosc_fcopy_att;
  2301. ret = FCOPY_exec(att, srcdir, instfile, instdir);
  2302.  
  2303. return (ret);
  2304. }
  2305. # 1016 "insttaro.c"
  2306. int _tostool_install(char *instdir,int item_setup)
  2307. {
  2308. int ret, att, len, drv;
  2309. char *srcdir, *instfile;
  2310. char tmp[256], tmp2[256];
  2311.  
  2312. srcdir = "/OH_TOWNS/TAROPYON/TOSTOOL";
  2313. instfile = "*.exp *.dll *.doc";
  2314.  
  2315. syl_putf("TOS TOOL INSTALL START");
  2316. FS_chdrv( toupper(DirStart[0]) - 'A' );
  2317. if ( *srcdir == '\0' || *srcdir == '.' )
  2318. {
  2319. strcpy(tmp,DirStart);
  2320. ret = strlen(tmp);
  2321. if ( ret > 3 && FS_isDelim(tmp[ret-1]) )
  2322. tmp[ret-1] = '\0';
  2323. } else
  2324. {
  2325. if ( FS_isDelim(*srcdir) )
  2326. strcpy(tmp,srcdir);
  2327. else
  2328. sprintf(tmp,"%s%s",DirStart, srcdir);
  2329. }
  2330. FS_getFullPn(tmp2,tmp);
  2331. srcdir = tmp2;
  2332. att = _tarosc_fcopy_att;
  2333. ret = FCOPY_exec(att, srcdir, instfile, instdir);
  2334.  
  2335. return (ret);
  2336. }
  2337. # 1052 "insttaro.c"
  2338. int tarosdk_install()
  2339. {
  2340. static char *buf[4] =
  2341. {
  2342. "softname    \"âTâCâhâÅü[âNâvâìâOâëâÇÅW\"",
  2343. "instfile    /OH_TOWNS/TAROPYON/SDKTOOL    \"*.exp *.doc\"",
  2344. "help        SDKTOOL.GGG",
  2345. (0)
  2346. };
  2347.  
  2348. install_exec(buf);
  2349. return (0);
  2350. }
  2351.  
  2352. int splib_install()
  2353. {
  2354. static char *buf[5] =
  2355. {
  2356. "softname    \"High CùpâëâCâuâëâè (splib)\"",
  2357. "instfile    /OH_TOWNS/TAROPYON/SPLIB",
  2358. "arcfile    splib.lzh",
  2359. "help        splib.ggg",
  2360. (0)
  2361. };
  2362.  
  2363. install_exec(buf);
  2364. return (0);
  2365. }
  2366.  
  2367. int silib_install()
  2368. {
  2369. static char *buf[5] =
  2370. {
  2371. "softname    \"High CùpâëâCâuâëâè (silib)\"",
  2372. "instfile    /OH_TOWNS/TAROPYON/SILIB",
  2373. "arcfile    silib.lzh",
  2374. "help        silib.ggg",
  2375. (0)
  2376. };
  2377.  
  2378. install_exec(buf);
  2379. return (0);
  2380. }
  2381.  
  2382. int dtalib_install()
  2383. {
  2384. static char *buf[5] =
  2385. {
  2386. "softname    \"DTA âëâCâuâëâè\"",
  2387. "instfile    /OH_TOWNS/TAROPYON/DTALIB",
  2388. "arcfile    dtalib.lzh",
  2389. "help        dtalib.ggg",
  2390. (0)
  2391. };
  2392.  
  2393. install_exec(buf);
  2394. return (0);
  2395. }
  2396.  
  2397. int lhadll_install()
  2398. {
  2399. static char *buf[5] =
  2400. {
  2401. "softname    \"LHA âëâCâuâëâè (LHA.DLL)\"",
  2402. "instfile    /OH_TOWNS/TAROPYON/LHADLL",
  2403. "arcfile    lhadll.lzh",
  2404. "help        lhadll.ggg",
  2405. (0)
  2406. };
  2407.  
  2408. install_exec(buf);
  2409. return (0);
  2410. }
  2411. # 43 "instcont.c"
  2412. int install_draw2()
  2413. {
  2414. static char *buf[5] =
  2415. {
  2416. "softname    \"üuécéqé`évéQü@ü`éáéóé╠é⌐é»é═é╡ü`üv\"",
  2417. "instfile    \"/OH_TOWNS/TOUKOU/DRAW2\"    \"*.*\"",
  2418. "help        \"DRAW2.GGG\"",
  2419. "item        \"DRAW2\",\"DRAW2.EXP\",\"\",2",
  2420. (0)
  2421. };
  2422.  
  2423. install_exec(buf);
  2424. return (0);
  2425. }
  2426.  
  2427. int install_picrus()
  2428. {
  2429. static char *buf[5] =
  2430. {
  2431. "softname    \"üuâsâNâïâXé╠û`î»Ä╥üv\"",
  2432. "instfile    /OH_TOWNS/TOUKOU/PICRUS    \"*.*\"",
  2433. "help        PICRUS.GGG",
  2434. "item        \"PICRUS\",MAINP.EXP,\"\",2",
  2435. (0)
  2436. };
  2437.  
  2438. install_exec(buf);
  2439. return (0);
  2440. }
  2441.  
  2442. int install_t_tank()
  2443. {
  2444. static char *buf[5] =
  2445. {
  2446. "softname    \"üué╜é±é¡é╠ï⌐é╤üv\"",
  2447. "instfile    /OH_TOWNS/TOUKOU/TANK    \"*.*\"",
  2448. "help        T_TANK.GGG",
  2449. "item        \"é╜é±é¡é╠ï⌐é╤\",T_TANK.EXP,\"\",2",
  2450. (0)
  2451. };
  2452.  
  2453. install_exec(buf);
  2454. return (0);
  2455. }
  2456.  
  2457. int install_shiva()
  2458. {
  2459. static char *buf[5] =
  2460. {
  2461. "softname    \"üuthe rebel of érégéhéué`üv\"",
  2462. "instfile    /OH_TOWNS/TOUKOU/SHIVA    \"*.*\"",
  2463. "help        SHIVA.GGG",
  2464. "item        \"the rebel of SHIVA\",SHIVA.EXP,\"\",2",
  2465. (0)
  2466. };
  2467.  
  2468. install_exec(buf);
  2469. return (0);
  2470. }
  2471.  
  2472. int install_g_field()
  2473. {
  2474. static char *buf[5] =
  2475. {
  2476. "softname    \"üuéféhéfé`ü|éeéhédékécüv\"",
  2477. "instfile    /OH_TOWNS/TOUKOU/G_FIELD    \"*.*\"",
  2478. "help        G_FIELD.GGG",
  2479. "item        \"GIGA-FILED\",G_FIELD.EXP,\"\",2",
  2480. (0)
  2481. };
  2482.  
  2483. install_exec(buf);
  2484. return (0);
  2485. }
  2486.  
  2487. int install_hanasu()
  2488. {
  2489. static char *buf[5] =
  2490. {
  2491. "softname    \"üué═é╚é╖éµüv\"",
  2492. "instfile    /OH_TOWNS/TOUKOU/HANASUYO    \"*.*\"",
  2493. "help        HANASUYO.GGG",
  2494. "demo        \"âfâé\"    hanasu_demo",
  2495. (0)
  2496. };
  2497.  
  2498. install_exec(buf);
  2499. return (0);
  2500. }
  2501.  
  2502. int hanasu_demo()
  2503. {
  2504. char *fn, para[256];
  2505.  
  2506. strcpy( para,"");
  2507. fn = para + strlen(para);
  2508. fn[0] = ' ';
  2509. fn[1] = DirStart[0];
  2510. fn[2] = ':';
  2511. strcpy(fn+3,"/OH_TOWNS/TOUKOU/HANASUYO/hanas.mov");
  2512.  
  2513. exprun("/OH_TOWNS/DEMOTOOL/ugkplay.exp", para );
  2514.  
  2515. return (0);
  2516. }
  2517. # 5 "instgafl.c"
  2518. int install_gafil()
  2519. {
  2520. int ret, drv, fcopy_att, flag387, arcflag, srcdrv, item_setup;
  2521. char *softname;
  2522. char *helpfn;
  2523. char *srcdir;
  2524. char *arcfn, *arcdir;
  2525. char instdir[256], *instfile;
  2526. char *item_prog, *item_ttl, item_para[128];
  2527. int item_att;
  2528. char *dlgTxm;
  2529. char *lhalib;
  2530. char tmp[256], tmp2[256];
  2531.  
  2532. instdir[0] = '\0';
  2533. softname = "ëµæ£╠¿┘└ & ëµæ£╠¿┘└╪▌╕▐┬░┘╖»─ Gafil";
  2534. srcdir = "/OH_TOWNS/TOUKOU/GAFIL";
  2535. arcfn = "src.lzh";
  2536. arcdir = "SRC";
  2537. instfile = "*.*";
  2538. helpfn = "/OH_TOWNS/TOUKOU/GAFIL/GAFIL.GGG";
  2539. item_att = 2;
  2540.  
  2541. srcdrv = toupper(DirStart[0]) - 'A';
  2542.  
  2543.  
  2544. _TOP:
  2545. syl_putf("%s",softname);
  2546. dlgTxm = DlgTxm_open(ColBoxNormal);
  2547. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  2548. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  2549. "%s é≡âCâôâXâgü[âïé╡é▄é╖üB", softname );
  2550. DlgTxm_putf( dlgTxm, Fnt16x12, (1), "");
  2551.  
  2552. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 ,
  2553. 1, "", 0, "▓▌╜─░┘ : [Ä└ìs]");
  2554. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'H' , 0x2300 ,
  2555. 2, "inst_help", helpfn, "Éαû╛ : [H]");
  2556. DlgTxm_setBtn( dlgTxm, Fnt16x16, 120, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200,
  2557. 3, "", (0), "ĵÅ┴ : [ĵÅ┴]");
  2558.  
  2559. DlgTxm_setSize(dlgTxm,480,40);
  2560. DlgTxm_setPosition(dlgTxm,(1));
  2561. do
  2562. {
  2563. ret = DlgTxm_start(dlgTxm);
  2564. } while ( ret == 2 );
  2565. DlgTxm_close(dlgTxm);
  2566. if ( ret != 1 )
  2567. goto _RET;
  2568.  
  2569.  
  2570.  
  2571. dlgTxm = DlgTxm_open(ColBoxNormal);
  2572. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  2573. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  2574. "éáé╚é╜é╠TOWNS é╔é═ÉöÆlëëÄZâvâìâZâbâTé▄é╜é═ODP é¬òtéóé─éóé▄é╖é⌐üH" );
  2575. DlgTxm_putf( dlgTxm, Fnt16x12, (1), "");
  2576. # 70 "instgafl.c"
  2577. DlgTxm_setBtn( dlgTxm, Fnt16x16, 160, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'Y' , 0x1600 ,
  2578. 1, "", 0, "òtéóé─éóéΘ : [Y]");
  2579. DlgTxm_setBtn( dlgTxm, Fnt16x16, 160, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'N' , 0x2F00 ,
  2580. 2, "", 0, "òtéóé─éóé╚éó : [N]");
  2581.  
  2582. DlgTxm_setSize(dlgTxm,480,40);
  2583. DlgTxm_setPosition(dlgTxm,(1));
  2584. do
  2585. {
  2586. ret = DlgTxm_start(dlgTxm);
  2587. } while ( ret != 1 && ret != 2 );
  2588. DlgTxm_close(dlgTxm);
  2589. flag387 = (ret == 1 ? 1 : 0);
  2590.  
  2591.  
  2592. dlgTxm = DlgTxm_open(ColBoxNormal);
  2593. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  2594. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  2595. "â\\ü[âXâvâìâOâëâÇéαâCâôâXâgü[âïé╡é▄é╖é⌐üH" );
  2596.  
  2597. DlgTxm_setBtn( dlgTxm, Fnt16x16, 160, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'S' , 0x1F00 ,
  2598. 1, "", 0, "┐░╜é≡▓▌╜─░┘é╖éΘ : [S]");
  2599. DlgTxm_setBtn( dlgTxm, Fnt16x16, 160, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200,
  2600. 0, "", 0, "▓▌╜─░┘é╡é╚éó : [ĵÅ┴]");
  2601.  
  2602. DlgTxm_setSize(dlgTxm,480,40);
  2603. DlgTxm_setPosition(dlgTxm,(1));
  2604. ret = DlgTxm_start(dlgTxm);
  2605. DlgTxm_close(dlgTxm);
  2606. arcflag = (ret == 1) ? 1 : 0;
  2607.  
  2608.  
  2609. ret = APL_setInstallDir(instdir,"%s : âCâôâXâgü[âïɵÄwÆΦ", softname);
  2610. if ( ret )
  2611. goto _TOP;
  2612.  
  2613. dlgTxm = DlgTxm_open(ColBoxNormal);
  2614. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  2615. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  2616. "%s", instdir );
  2617. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  2618. "é▒é╠âfâBâîâNâgâèé╔âCâôâXâgü[âïé╡é─éαéóéóé┼é╖é⌐üH" );
  2619. DlgTxm_putf( dlgTxm, Fnt16x12, (1),"");
  2620. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  2621. "▓▌╜─░┘1 üc âtâ@âCâïé≡òíÄ╩é╡é─TownsMENU é╔âAâCâeâÇôoÿ^");
  2622. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  2623. "▓▌╜─░┘2 üc âtâ@âCâïé≡òíÄ╩üiâAâCâeâÇôoÿ^é═é╡é╚éóüj    ");
  2624.  
  2625. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 , 1, "", 0, "▓▌╜─░┘1 : [Ä└ìs]");
  2626. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'C' , 0x2C00 , 2, "", 0, "▓▌╜─░┘2 : [C]");
  2627.  
  2628. DlgTxm_setSize(dlgTxm,320,40);
  2629. DlgTxm_setPosition(dlgTxm,(1));
  2630. ret = DlgTxm_start(dlgTxm);
  2631. DlgTxm_close(dlgTxm);
  2632. if ( ret != 1 && ret != 2 )
  2633. goto _TOP;
  2634. item_setup = (ret == 1 ? 1 : 0);
  2635.  
  2636.  
  2637. syl_putf("INSTALL START");
  2638. FS_chdrv(srcdrv);
  2639. FS_getFullPn(tmp,srcdir);
  2640. fcopy_att = (0x00000010) | (0x00000100) | (0x01000000);
  2641. if ( flag387 )
  2642. instfile = "gafil387.* *.doc";
  2643. else
  2644. instfile = "gafil386.* *.doc";
  2645. ret = FCOPY_exec(fcopy_att, tmp, instfile, instdir);
  2646.  
  2647. if ( ret == (0) )
  2648. {
  2649. FS_chdrv(srcdrv);
  2650. strcpy(tmp2,srcdir); add_path_fn(tmp2,"TESTSCR");
  2651. FS_getFullPn(tmp,tmp2);
  2652. fcopy_att = (0x00000010) | (0x00000100);
  2653. ret = FCOPY_exec(fcopy_att, tmp, "*.gsc", instdir);
  2654. }
  2655.  
  2656.  
  2657. if ( arcflag )
  2658. {
  2659. FS_chdrv(srcdrv);
  2660. strcpy(tmp2,srcdir); add_path_fn(tmp2,"INC");
  2661. FS_getFullPn(tmp,tmp2);
  2662. strcpy(tmp2,instdir); add_path_fn(tmp2,"INC");
  2663. fcopy_att = (0x00000100) | (0x01000000);
  2664. ret = FCOPY_exec(fcopy_att, tmp, "*.h", tmp2);
  2665.  
  2666. if ( ret != (0) )
  2667. goto _EXTSKIP;
  2668. FS_chdrv(srcdrv);
  2669. strcpy(tmp2,srcdir); add_path_fn(tmp2,"LIB386");
  2670. FS_getFullPn(tmp,tmp2);
  2671. strcpy(tmp2,instdir); add_path_fn(tmp2,"LIB386");
  2672. fcopy_att = (0x00000100) | (0x01000000);
  2673. ret = FCOPY_exec(fcopy_att, tmp, "*.lib", tmp2);
  2674.  
  2675. if ( ret != (0) )
  2676. goto _EXTSKIP;
  2677. FS_chdrv(srcdrv);
  2678. strcpy(tmp2,srcdir); add_path_fn(tmp2,"LIB387");
  2679. FS_getFullPn(tmp,tmp2);
  2680. strcpy(tmp2,instdir); add_path_fn(tmp2,"LIB387");
  2681. fcopy_att = (0x00000100) | (0x01000000);
  2682. ret = FCOPY_exec(fcopy_att, tmp, "*.lib", tmp2);
  2683.  
  2684. syl_putf("ARC(.LZH) FILE EXTRACT");
  2685. FS_chdrv(srcdrv);
  2686. strcpy(tmp,srcdir);
  2687. add_path_fn(tmp,arcfn);
  2688.  
  2689. strcpy(tmp2,instdir);
  2690. if ( arcdir[0] )
  2691. add_path_fn(tmp2,arcdir);
  2692. if ( (lhalib = LHA_openArc(tmp)) != (0) )
  2693. {
  2694. ret = LHA_extractAll(lhalib,tmp2);
  2695. LHA_closeArc(lhalib);
  2696. } else
  2697. {
  2698. syl_putf("ARC OPEN ERROR");
  2699. ret = (-1);
  2700. }
  2701. }
  2702. _EXTSKIP:
  2703.  
  2704.  
  2705. if ( ret == (0) && item_setup != 0 )
  2706. {
  2707. syl_putf("ITEM SETUP");
  2708. drv = toupper(instdir[0]) - 'A';
  2709. strcpy(item_para,"");
  2710. if ( flag387 )
  2711. {
  2712. strcpy(tmp,instdir);
  2713. add_path_fn(tmp,"GAFIL387.EXP");
  2714. item_setApl( drv, 1024, "GAFIL", tmp, item_para, item_att );
  2715.  
  2716. strcpy(tmp,instdir);
  2717. add_path_fn(tmp,"GAFIL387.EXG");
  2718. item_setApl( drv, 1024, "GAFIL/SHELL", tmp, item_para, item_att );
  2719. } else
  2720. {
  2721. strcpy(tmp,instdir);
  2722. add_path_fn(tmp,"GAFIL386.EXP");
  2723. item_setApl( drv, 1024, "GAFIL", tmp, item_para, item_att );
  2724.  
  2725. strcpy(tmp,instdir);
  2726. add_path_fn(tmp,"GAFIL386.EXG");
  2727. item_setApl( drv, 1024, "GAFIL/SHELL", tmp, item_para, item_att );
  2728. }
  2729. }
  2730.  
  2731.  
  2732. install_end( softname, ret );
  2733.  
  2734. _RET:
  2735. syl_clear();
  2736. return (0);
  2737. }
  2738. # 5 "instexec.c"
  2739. int install_exec( char **probuf )
  2740. {
  2741. int ret, i, fcopy_att, drv, argc, srcdrv;
  2742. char **argv, *p, *typename;
  2743. char instdir[256];
  2744. char softname[80];
  2745. char srcdir[128], instfile[128];
  2746. char helpfn[128];
  2747. char item_ttl[80],item_prog[32], item_para[128];
  2748. int item_setup, item_num, item_att;
  2749. char arcfn[128], arcdir[128], arcflag;
  2750. char runfn[128], runpara[128];
  2751. char demo_msg[80], demo_func[80];
  2752. char *lhalib;
  2753. char *dlgTxm;
  2754. char tmp[256], tmp2[256];
  2755.  
  2756. fcopy_att = (0x00000001) | (0x00000010) | (0x00000100);
  2757. instdir[0] = '\0';
  2758. srcdir[0] = '\0';
  2759. instfile[0] = '\0';
  2760. helpfn[0] = '\0';
  2761. item_num = 0;
  2762. item_ttl[0] = '\0';
  2763. arcfn[0] = '\0';
  2764. arcdir[0] = '\0';
  2765. arcflag = 0;
  2766. runpara[0] = '\0';
  2767. runfn[0] = '\0';
  2768. demo_msg[0] = '\0';
  2769. demo_func[0] = '\0';
  2770.  
  2771. srcdrv = toupper(DirStart[0]) - 'A';
  2772.  
  2773.  
  2774. for ( i = 0; probuf[i] != (0); ++i )
  2775. {
  2776. if ( (argc = DTA_makeArg(probuf[i],&argv)) > 0 )
  2777. {
  2778. typename = argv[0];
  2779. if ( strcmpi(typename,"softname") == 0 )
  2780. {
  2781. if ( argc >= 2 )
  2782. strcpy( softname, argv[1]);
  2783. } else if ( strcmpi(typename,"instfile") == 0 )
  2784. {
  2785. if ( argc >= 2 )
  2786. strcpy(srcdir , argv[1]);
  2787. if ( argc >= 3 )
  2788. strcpy(instfile, argv[2]);
  2789. if ( argc >= 4 )
  2790. {
  2791. if ( strcmpi(argv[3],"-nocopydir") == 0 )
  2792. fcopy_att &= (~(0x00000001));
  2793. }
  2794. } else if ( strcmpi(typename,"help") == 0 )
  2795. {
  2796. if ( argc >= 2 )
  2797. {
  2798. if ( FS_isDelim(argv[1][0]) )
  2799. strcpy(helpfn, argv[1]);
  2800. else if ( srcdir[0] != '\0' )
  2801. sprintf(helpfn,"%s/%s",srcdir,argv[1]);
  2802. }
  2803. } else if ( strcmpi(typename,"item") == 0 )
  2804. {
  2805. ++item_num;
  2806. if ( argc >= 5 )
  2807. {
  2808. strcpy(item_ttl , argv[1]);
  2809. strcpy(item_prog, argv[2]);
  2810. strcpy(item_para, argv[3]);
  2811. item_att = atoi(argv[4]);
  2812. }
  2813. } else if ( strcmpi(typename,"arcfile") == 0 )
  2814. {
  2815. if ( argc >= 2 )
  2816. {
  2817. strcpy( arcfn , argv[1]);
  2818. arcflag = 1;
  2819. }
  2820. if ( argc >= 3 )
  2821. strcpy( arcdir, argv[2]);
  2822. } else if ( strcmpi(typename,"runexp") == 0 )
  2823. {
  2824. if ( argc >= 2 && srcdir[0] )
  2825. {
  2826. strcpy(runfn,srcdir);
  2827. add_path_fn(runfn,argv[1]);
  2828. }
  2829. if ( argc >= 3 )
  2830. strcpy(runpara,argv[2]);
  2831. } else if ( strcmpi(typename,"demo") == 0 )
  2832. {
  2833. if ( argc >= 3 )
  2834. {
  2835. strcpy(demo_msg ,argv[1]);
  2836. strcpy(demo_func,argv[2]);
  2837. }
  2838. }
  2839. DTA_clearArg(argc,argv);
  2840. }
  2841. }
  2842.  
  2843.  
  2844. _TOP:
  2845. syl_putf("%s",softname);
  2846. dlgTxm = DlgTxm_open(ColBoxNormal);
  2847. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  2848. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  2849. "%s é≡âCâôâXâgü[âïé╡é▄é╖üB", softname );
  2850. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 ,
  2851. 1, "", (0), "▓▌╜─░┘ : [Ä└ìs]");
  2852. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'H' , 0x2300 ,
  2853. 2, "inst_help", helpfn, "Éαû╛ : [H]");
  2854. if ( runfn[0] )
  2855. {
  2856. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'R' , 0x1400 ,
  2857. 3, "", (0), "Ä└ìs : [R]");
  2858. } else if ( demo_msg[0] )
  2859. {
  2860. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'D' , 0x2000 ,
  2861. 3, "", (0), "âfâé : [D]");
  2862. }
  2863. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200,
  2864. 4, "", (0), "ĵÅ┴ : [ĵÅ┴]");
  2865. DlgTxm_setSize(dlgTxm,320,40);
  2866. DlgTxm_setPosition(dlgTxm,(1));
  2867. do
  2868. {
  2869. ret = DlgTxm_start(dlgTxm);
  2870. } while ( ret == 2 );
  2871. DlgTxm_close(dlgTxm);
  2872. if ( ret == 3 )
  2873. {
  2874. if ( runfn[0] )
  2875. {
  2876. dlgTxm = DlgTxm_open(ColBoxCaution);
  2877. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  2878. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  2879. "%s é≡Ä└ìsé╡é▄é╖üB", softname );
  2880. DlgTxm_putf( dlgTxm, Fnt16x12, (1),"");
  2881. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  2882. "üªü@âüâéâèé¬òsæ½é╡é─éóéΘÅΩìçé═Ä└ìsé┼é½é▄é╣é±üB" );
  2883. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 ,
  2884. 1, "", (0), "Ä└ìs : [Ä└ìs]");
  2885. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200,
  2886. 0, "", (0), "ĵÅ┴ : [ĵÅ┴]");
  2887. DlgTxm_setSize(dlgTxm,400,40);
  2888. DlgTxm_setPosition(dlgTxm,(1));
  2889. ret = DlgTxm_start(dlgTxm);
  2890. DlgTxm_close(dlgTxm);
  2891. if ( ret == 1 )
  2892. exprun(runfn,runpara);
  2893. } else if ( demo_msg )
  2894. {
  2895. _funcCall(demo_func, 0);
  2896. }
  2897. goto _TOP;
  2898. } else if ( ret != 1 )
  2899. goto _RET;
  2900.  
  2901.  
  2902.  
  2903. if ( arcfn[0] && arcdir[0] )
  2904. {
  2905. dlgTxm = DlgTxm_open(ColBoxNormal);
  2906. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  2907. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  2908. "â\\ü[âXâvâìâOâëâÇéαâCâôâXâgü[âïé╡é▄é╖é⌐üH" );
  2909. DlgTxm_setBtn( dlgTxm, Fnt16x16, 160, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'S' , 0x1F00 ,
  2910. 1, "", 0, "┐░╜é≡▓▌╜─░┘é╖éΘ : [S]");
  2911. DlgTxm_setBtn( dlgTxm, Fnt16x16, 160, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200,
  2912. 0, "", 0, "▓▌╜─░┘é╡é╚éó : [ĵÅ┴]");
  2913. DlgTxm_setSize(dlgTxm,480,40);
  2914. DlgTxm_setPosition(dlgTxm,(1));
  2915. ret = DlgTxm_start(dlgTxm);
  2916. DlgTxm_close(dlgTxm);
  2917. arcflag = (ret == 1) ? 1 : 0;
  2918. }
  2919.  
  2920.  
  2921. ret = APL_setInstallDir(instdir,"%s : âCâôâXâgü[âïɵÄwÆΦ", softname);
  2922. if ( ret )
  2923. goto _TOP;
  2924.  
  2925. dlgTxm = DlgTxm_open(ColBoxNormal);
  2926. DlgTxm_setTitle(dlgTxm,Fnt16x16,softname);
  2927. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  2928. "%s", instdir );
  2929. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  2930. "é▒é╠âfâBâîâNâgâèé╔âCâôâXâgü[âïé╡é─éαéóéóé┼é╖é⌐üH" );
  2931. DlgTxm_putf( dlgTxm, Fnt16x12, (1),"");
  2932. if ( item_ttl[0] )
  2933. {
  2934. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  2935. "▓▌╜─░┘1 üc âtâ@âCâïé≡òíÄ╩é╡é─TownsMENU é╔âAâCâeâÇôoÿ^");
  2936. DlgTxm_putf( dlgTxm, Fnt16x16, (1),
  2937. "▓▌╜─░┘2 üc âtâ@âCâïé≡òíÄ╩üiâAâCâeâÇôoÿ^é═é╡é╚éóüj    ");
  2938.  
  2939. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 , 1, "", 0, "▓▌╜─░┘1 : [Ä└ìs]");
  2940. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), 'C' , 0x2C00 , 2, "", 0, "▓▌╜─░┘2 : [C]");
  2941. } else
  2942. {
  2943. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 , 2, "", 0, "▓▌╜─░┘ : [Ä└ìs]");
  2944. }
  2945. DlgTxm_setBtn( dlgTxm, Fnt16x16, 144, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\x1B', 0x7200, 3, "", 0, "ĵÅ┴ : [ĵÅ┴]");
  2946. DlgTxm_setSize(dlgTxm,320,40);
  2947. DlgTxm_setPosition(dlgTxm,(1));
  2948. ret = DlgTxm_start(dlgTxm);
  2949. DlgTxm_close(dlgTxm);
  2950. if ( ret != 1 && ret != 2 )
  2951. goto _TOP;
  2952. item_setup = (ret == 1 ? 1 : 0);
  2953.  
  2954.  
  2955.  
  2956. syl_putf("INSTALL START");
  2957. FS_chdrv(srcdrv);
  2958. if ( *srcdir == '\0' || *srcdir == '.' )
  2959. {
  2960. strcpy(tmp,DirStart);
  2961. ret = strlen(tmp);
  2962. if ( ret > 3 && FS_isDelim(tmp[ret-1]) )
  2963. tmp[ret-1] = '\0';
  2964. } else
  2965. {
  2966. if ( FS_isDelim(*srcdir) )
  2967. strcpy(tmp,srcdir);
  2968. else
  2969. sprintf(tmp,"%s%s",DirStart, srcdir);
  2970. }
  2971. if ( instfile[0] )
  2972. {
  2973. FS_getFullPn(tmp2,tmp);
  2974. srcdir = tmp2;
  2975. ret = FCOPY_exec(fcopy_att, srcdir, instfile, instdir);
  2976. }
  2977.  
  2978.  
  2979. if ( arcfn[0] && arcflag )
  2980. {
  2981. syl_putf("ARC(.LZH) FILE EXTRACT");
  2982. FS_chdrv(srcdrv);
  2983. strcpy(tmp,srcdir);
  2984. add_path_fn(tmp,arcfn);
  2985.  
  2986. strcpy(tmp2,instdir);
  2987. if ( arcdir[0] )
  2988. add_path_fn(tmp2,arcdir);
  2989. if ( (lhalib = LHA_openArc(tmp)) != (0) )
  2990. {
  2991. ret = LHA_extractAll(lhalib,tmp2);
  2992. LHA_closeArc(lhalib);
  2993. } else
  2994. {
  2995. syl_putf("ARC OPEN ERROR");
  2996. ret = (-1);
  2997. }
  2998. }
  2999.  
  3000.  
  3001. if ( ret == (0) && item_setup != 0 )
  3002. {
  3003. syl_putf("ITEM SETUP");
  3004. drv = toupper(instdir[0]) - 'A';
  3005. if ( item_num == 1 )
  3006. {
  3007. strcpy(tmp,instdir);
  3008. add_path_fn(tmp,item_prog);
  3009. item_setApl( drv, 1024, item_ttl, tmp, item_para, item_att );
  3010. } else
  3011. {
  3012. for ( i = 0; probuf[i] != (0); ++i )
  3013. {
  3014. if ( (argc = DTA_makeArg(probuf[i],&argv)) > 0 )
  3015. {
  3016. typename = argv[0];
  3017. if ( strcmpi(typename,"item") == 0 )
  3018. {
  3019. if ( argc >= 5 )
  3020. {
  3021. strcpy(item_ttl , argv[1]);
  3022. strcpy(item_prog, argv[2]);
  3023. strcpy(item_para, argv[3]);
  3024. item_att = atoi(argv[4]);
  3025. strcpy(tmp,instdir);
  3026. add_path_fn(tmp,item_prog);
  3027. item_setApl( drv, 1024, item_ttl, tmp, item_para, item_att );
  3028. }
  3029. }
  3030. DTA_clearArg(argc,argv);
  3031. }
  3032. }
  3033. }
  3034. }
  3035. install_end( softname, ret );
  3036.  
  3037. _RET:
  3038. syl_clear();
  3039.  
  3040. return (0);
  3041. }
  3042. # 5 "instlib.c"
  3043. int _puts_bold(int x, int y, int col, char *s);
  3044. # 11 "instlib.c"
  3045. int syl_clear()
  3046. {
  3047. char *msg, tmp[80];
  3048.  
  3049. SCN_wrtPage(1);
  3050. PD_curDec();
  3051.  
  3052. sprintf(tmp,"PRESENTED by %c%c", Gaiji_ohFMTOWNS>>8, Gaiji_ohFMTOWNS&0xFF );
  3053. msg = "ôVÉ░CD Vol.1 ö≥ù┤é╠è¬";
  3054.  
  3055. SCN_boxf(0,464,639,479,0,ColMesh);
  3056. _puts_bold( 232 ,464 , PltNoWhite,msg);
  3057. SCN_puts(Fnt16x16,tmp,232+23*8+1,464+1,0,(_ScnCol_black) ,0);
  3058. SCN_puts(Fnt16x16,tmp,232+23*8 ,464 ,0,PltNoWhite,0);
  3059.  
  3060. PD_curInc();
  3061. }
  3062. # 33 "instlib.c"
  3063. int syl_putf(char *form)
  3064. {
  3065. char tmp[256];
  3066. char *ap;
  3067. int n, x;
  3068.  
  3069. (ap = (char *)(&form) + sizeof(int));
  3070. vsprintf(tmp+6,form,ap);
  3071. ;
  3072.  
  3073. SCN_wrtPage(1);
  3074. PD_curDec();
  3075.  
  3076. SCN_boxf(0,464,639,479,0,ColMesh);
  3077.  
  3078. EGB_textDirection(EgbPtr,0);
  3079. EGB_textDisplayDirection(EgbPtr,0);
  3080. EGB_textSpace(EgbPtr,0);
  3081. EGB_textZoom(EgbPtr,0, 8, 16 );
  3082. EGB_textZoom(EgbPtr,1, 16, 16 );
  3083. EGB_fontStyle(EgbPtr,1+4);
  3084. EGB_color(EgbPtr,0,(_ScnColTbl[12]));
  3085. EGB_color(EgbPtr,1,(_ScnCol_black));
  3086. EGB_paintMode(EgbPtr,0x022);
  3087. EGB_writeMode(EgbPtr,0);
  3088.  
  3089. n = strlen(tmp+6);
  3090. x = (640 - n * 8) / 2;
  3091. _setWord(tmp+0, x );
  3092. _setWord(tmp+2, 464+15);
  3093. _setWord(tmp+4, n );
  3094. EGB_sjisString( EgbPtr, tmp);
  3095.  
  3096. PD_curInc();
  3097. }
  3098.  
  3099. int _puts_bold(int x, int y, int col, char *s)
  3100. {
  3101. char para[256];
  3102.  
  3103. EGB_textDirection(EgbPtr,0);
  3104. EGB_textDisplayDirection(EgbPtr,0);
  3105. EGB_textSpace(EgbPtr,0);
  3106. EGB_textZoom(EgbPtr,0, 8, 16 );
  3107. EGB_textZoom(EgbPtr,1, 16, 16 );
  3108. EGB_fontStyle(EgbPtr,1+4);
  3109. EGB_color(EgbPtr,0,col );
  3110. EGB_color(EgbPtr,1,(_ScnCol_black));
  3111. EGB_paintMode(EgbPtr,0x022);
  3112. EGB_writeMode(EgbPtr,0);
  3113.  
  3114. _setWord(para+0, x );
  3115. _setWord(para+2, y+15 );
  3116. _setWord(para+4, strlen(s));
  3117. strcpy(para+6,s);
  3118. EGB_sjisString( EgbPtr, para);
  3119. }
  3120.  
  3121. char *add_path_fn(char *path, char *fn)
  3122. {
  3123. int len;
  3124.  
  3125. len = strlen(path);
  3126. if ( len == 0 || !FS_isDelim(path[len-1]) )
  3127. path[len++] = FsPathDelim;
  3128. strcpy( path + len, fn );
  3129. return (path);
  3130. }
  3131. # 106 "instlib.c"
  3132. int tif_load(char *fn)
  3133. {
  3134. char *img;
  3135.  
  3136. SCN_wrtPage(0);
  3137. if ( (img = IMG_open()) != (0) )
  3138. {
  3139. IMG_setPage(img,0);
  3140. IMG_setAtt(img,(0x00010000));
  3141. IMG_setColor( img, (_ScnCol_black), (_ScnCol_white));
  3142. if ( IMG_load(img,fn) == (0) )
  3143. {
  3144. IMG_setPos(img,0,0);
  3145. EGB_color(EgbPtr,1,(_ScnCol_black));
  3146. EGB_clearScreen(EgbPtr);
  3147. EGB_paintMode(EgbPtr,0x22);
  3148. IMG_dsp(img);
  3149. }
  3150. IMG_close(img);
  3151. }
  3152. SCN_wrtPage(1);
  3153. return ((0));
  3154. }
  3155. # 134 "instlib.c"
  3156. int tiflist_disp( char **list )
  3157. {
  3158. int i, x, y, ret, pixel, md, x0, y0;
  3159. char *img;
  3160. short fr[4];
  3161. char *fn;
  3162.  
  3163. SCN_wrtPage(1);
  3164. APL_save_desktop();
  3165. SCN_boxf(0,0,639,479,0,0);
  3166. SCN_wrtPage(0);
  3167.  
  3168. for ( i = 0; list[i] != (0); ++i )
  3169. {
  3170. fn = list[i];
  3171.  
  3172. if ( (img = IMG_open()) != (0) )
  3173. {
  3174. IMG_setAtt(img,(0x00010000));
  3175. if ( IMG_load(img,fn) == (0) )
  3176. {
  3177. IMG_getFr(img,fr);
  3178. pixel = IMG_getPixel(img);
  3179. switch ( pixel )
  3180. {
  3181. case 1:
  3182. case 4:
  3183. x0 = (640 - (fr[2] - fr[0] + 1)) / 2;
  3184. y0 = (480 - (fr[3] - fr[1] + 1)) / 2;
  3185. md = 3;
  3186. break;
  3187. case 8:
  3188. x0 = (640 - (fr[2] - fr[0] + 1)) / 2;
  3189. y0 = (480 - (fr[3] - fr[1] + 1)) / 2;
  3190. md = 12;
  3191. break;
  3192. case 16:
  3193. if ( fr[2] - fr[0] + 1 <= 320 )
  3194. {
  3195. x0 = (320 - (fr[2] - fr[0] + 1)) / 2;
  3196. y0 = (240 - (fr[3] - fr[1] + 1)) / 2;
  3197. md = 10;
  3198. } else
  3199. {
  3200. x0 = (512 - (fr[2] - fr[0] + 1)) / 2;
  3201. y0 = (480 - (fr[3] - fr[1] + 1)) / 2;
  3202. md = 17;
  3203. }
  3204. break;
  3205. default:
  3206. goto _TIF_ERR;
  3207. }
  3208. IMG_setPos(img,x0,y0);
  3209. PD_curOff();
  3210.  
  3211. EGB_displayPage(EgbPtr,0,0);
  3212. EGB_writePage(EgbPtr,0);
  3213. EGB_clearScreen(EgbPtr);
  3214. EGB_resolution(EgbPtr,0,md);
  3215. if ( md == 3 || md == 10 )
  3216. {
  3217. EGB_resolution(EgbPtr,1,3);
  3218. EGB_writePage(EgbPtr,1);
  3219. EGB_clearScreen(EgbPtr);
  3220. }
  3221.  
  3222. EGB_writePage(EgbPtr,0);
  3223. if ( md == 10 )
  3224. {
  3225. EGB_displayStart(EgbPtr,2,2,2);
  3226. EGB_displayStart(EgbPtr,3,320,240);
  3227. }
  3228. EGB_color(EgbPtr,1,0);
  3229. EGB_clearScreen(EgbPtr);
  3230. IMG_dsp(img);
  3231. if ( md == 3 || md == 10 )
  3232. EGB_displayPage(EgbPtr,1,3);
  3233. else
  3234. EGB_displayPage(EgbPtr,0,1);
  3235.  
  3236. _apl_wait(100 * 8);
  3237. while ( PD_getp(&x,&y) )
  3238. ;
  3239. }
  3240. IMG_close(img);
  3241. }
  3242. }
  3243.  
  3244. EGB_writePage(EgbPtr,0);
  3245. EGB_clearScreen(EgbPtr);
  3246.  
  3247. SCN_sysReinit();
  3248. disp_desktop();
  3249. SCN_wrtPage(1);
  3250. APL_load_desktop();
  3251. syl_clear();
  3252.  
  3253. return ((0));
  3254. }
  3255.  
  3256. int mveplay(char *fnmve, int loop)
  3257. {
  3258. char para[256];
  3259.  
  3260. sprintf(para,"-loop %d %s", loop, fnmve );
  3261.  
  3262. exprun("/OH_TOWNS/DEMOTOOL/mveplay.exp", para );
  3263. return (0);
  3264. }
  3265.  
  3266. int exprun(char *fn, char *para)
  3267. {
  3268. unsigned int siz;
  3269. int md;
  3270. char tmp[256];
  3271. char *dlgTxm;
  3272.  
  3273. siz = APL_getFreeMem();
  3274. if ( siz < 2 * 1024 * 1024 )
  3275. {
  3276. dlgTxm = DlgTxm_open(ColBoxError);
  3277. DlgTxm_setTitle(dlgTxm,Fnt16x16, "OUT OF MEMORY");
  3278.  
  3279. DlgTxm_putf( dlgTxm, Rom16x16, (1),"");
  3280. DlgTxm_putf( dlgTxm, Rom16x16, (1),
  3281. "âüâéâèòsæ½é╠é╜é▀Ä└ìsé┼é½é▄é╣é±üB" );
  3282. DlgTxm_putf( dlgTxm, Rom16x16, (1),"");
  3283.  
  3284. DlgTxm_setBtn( dlgTxm, Fnt16x16, 128, 20, (_ScnCol_black),
  3285. (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r', 0x7300, 0, "", 0, "OK : [Ä└ìs]");
  3286. DlgTxm_setSize(dlgTxm,480,48);
  3287. DlgTxm_setPosition(dlgTxm,(1));
  3288.  
  3289. DlgTxm_start(dlgTxm);
  3290. DlgTxm_close(dlgTxm);
  3291. return (-1);
  3292. }
  3293. FS_chdrv( toupper(DirStart[0]) - 'A' );
  3294. FS_getDnam(tmp,fn);
  3295. add_path_fn(tmp,".");
  3296. FS_chdir(tmp);
  3297.  
  3298.  
  3299. SCN_wrtPage(1);
  3300. APL_save_desktop();
  3301.  
  3302.  
  3303. md = (4) | (8);
  3304. AplDtaInit();
  3305. if ( para != (0) && *para != '\0' )
  3306. {
  3307. AplDtaSetStr("$MainArg","%s %s", fn, para);
  3308. if ( strlen(fn) + strlen(para) + 1 >= 128 )
  3309. md &= (~(8));
  3310. }
  3311. PCL_exec(fn,md);
  3312.  
  3313.  
  3314. SCN_sysReinit();
  3315. disp_desktop();
  3316. SCN_wrtPage(1);
  3317. APL_load_desktop();
  3318. syl_clear();
  3319.  
  3320. return ((0));
  3321. }
  3322. # 305 "instlib.c"
  3323. int inst_help( int evNo, char *evDat, char *fn)
  3324. {
  3325. char tmp[256];
  3326.  
  3327. FS_chdrv(toupper(DirStart[0]) - 'A');
  3328. sprintf(tmp,"%s.",DirStart);
  3329. FS_chdir(tmp);
  3330.  
  3331. APL_textView(Rom16x16,608,391,17,fn,"HELP FILE : %s", fn);
  3332.  
  3333. return (evNo);
  3334. }
  3335. # 322 "instlib.c"
  3336. int install_end( char *soft_name, int err )
  3337. {
  3338. char *dlgTxm;
  3339. int colbox;
  3340. char *msg;
  3341.  
  3342. msg = err == 0 ? "âCâôâXâgü[âïé¬ÅIéφéΦé▄é╡é╜üB"
  3343. : "âCâôâXâgü[âïé╔Ä╕ösé╡é▄é╡é╜üB";
  3344.  
  3345. colbox = 0;
  3346. colbox = SCN_tile_newMixCol(colbox,0x00,(_ScnColTbl[12]),(_ScnColTbl[ 7]));
  3347. if ( (dlgTxm = DlgTxm_open(colbox)) != (0) )
  3348. {
  3349. DlgTxm_setTitle(dlgTxm,Fnt16x16,soft_name);
  3350. DlgTxm_putf( dlgTxm, Fnt16x16, (1), "");
  3351. DlgTxm_putf( dlgTxm, Fnt16x16, (1), msg );
  3352. DlgTxm_putf( dlgTxm, Fnt16x16, (1), "");
  3353. DlgTxm_setBtn( dlgTxm, Fnt16x16, 64, 20, (_ScnCol_black), (_ScnColTbl[ 7]), (_ScnCol_hilight), (_ScnCol_dark), '\r' , 0x7300 , 1, "", 0, "OK : [Ä└ìs]");
  3354. DlgTxm_setSize(dlgTxm,480,64);
  3355. DlgTxm_setPosition(dlgTxm,(1));
  3356. DlgTxm_start(dlgTxm);
  3357. DlgTxm_close(dlgTxm);
  3358. }
  3359. SCN_tile_free(colbox);
  3360. }
  3361. # 10 "item.c"
  3362. int item_get_newpos( char *pathItem, int fposBase, short *newfrm );
  3363. int item_chkpos( char *pathItem, int fposStart, short *frmchk );
  3364. int item_get_fr( char *pathItem, int fpos, short *fr );
  3365. int item_adjust_pos( short *newfrm );
  3366.  
  3367. int item_setApl( int drv, int icon, char *ttl, char *path, char *para, int att )
  3368. {
  3369. char pathItem[64], prog[128];
  3370. short fr[4];
  3371. int iconGrp;
  3372. int fpos;
  3373. char *ttlGrp;
  3374.  
  3375. ttlGrp = "ôVÉ░";
  3376. iconGrp = 1059;
  3377.  
  3378. sprintf( pathItem, "%c:\\tmenu.itm", drv + 'A');
  3379. if ( FS_isFile(pathItem) != (1) )
  3380. {
  3381. ITM_CreateItemFile(pathItem);
  3382. }
  3383.  
  3384.  
  3385. fr[0] = fr[1] = fr[2] = fr[3] = -1;
  3386. fpos = ITM_GetGrpFPos(pathItem,0,-1,-1,ttlGrp,-1,fr);
  3387. if ( fpos < 0 )
  3388. {
  3389. item_get_newpos( pathItem, 0, fr);
  3390. if ( (fpos = ITM_AddGrpItem(pathItem,0,iconGrp,ttlGrp,fr)) < 0 )
  3391. return ((-1));
  3392. }
  3393.  
  3394.  
  3395. if ( item_get_newpos( pathItem, fpos, fr) < 0 )
  3396. return ((-1));
  3397. FS_dosFn(prog,path);
  3398. FS_strupr(prog);
  3399. if ( ITM_AddAplItem( pathItem, fpos, icon, ttl, prog, para, att, fr) < 0 )
  3400. return ((-1));
  3401. return ((0));
  3402. }
  3403.  
  3404.  
  3405. int item_get_newpos( char *pathItem, int fposBase, short *newfrm )
  3406. {
  3407. int area, x, y, x0, y0;
  3408.  
  3409. for ( area = 0; area < 9; ++area )
  3410. {
  3411. x = area;
  3412. for ( y = 0; y < area; ++y )
  3413. {
  3414. x0 = x * 64; newfrm[0] = x0+8; newfrm[2] = x0 + 63-8;
  3415. y0 = y * 48; newfrm[1] = y0+4; newfrm[3] = y0 + 47-4;
  3416. if ( item_chkpos( pathItem, fposBase, newfrm ) )
  3417. goto _OK;
  3418. }
  3419. y = area;
  3420. for ( x = 0; x <= area; ++x )
  3421. {
  3422. x0 = x * 64; newfrm[0] = x0+8; newfrm[2] = x0 + 63-8;
  3423. y0 = y * 48; newfrm[1] = y0+4; newfrm[3] = y0 + 47-4;
  3424. if ( item_chkpos( pathItem, fposBase, newfrm ) )
  3425. goto _OK;
  3426. }
  3427. }
  3428. _OK:
  3429. x0 = (newfrm[0] + newfrm[2] + 1) / 2 - 12;
  3430. newfrm[0] = (x0+7) & (~7);
  3431. newfrm[1] = newfrm[1] + 4;
  3432. newfrm[2] = newfrm[0] + 24;
  3433. newfrm[3] = newfrm[1] + 24;
  3434. # 86 "item.c"
  3435. return (item_adjust_pos( newfrm ));
  3436. }
  3437.  
  3438. int item_chkpos( char *pathItem, int fposStart, short *frmchk )
  3439. {
  3440. int ret;
  3441. int fpos, nextFPos;
  3442. int etyNum;
  3443. short icnNum;
  3444. char ttlStr[128];
  3445. int atrInf;
  3446. short frm[4];
  3447. int numItem;
  3448. # 105 "item.c"
  3449. if ( (fpos = fposStart) > 0 )
  3450. {
  3451. ret = ITM_GetItmType(pathItem,fpos);
  3452. if ( ret != 1 )
  3453. return (-1);
  3454. ITM_GetGrpData(pathItem,fpos,&etyNum,&icnNum,ttlStr,&nextFPos,frm);
  3455. # 115 "item.c"
  3456. while ( etyNum-- > 0 )
  3457. {
  3458. if ( (fpos = ITM_GetPhysclNextFPos( pathItem, fpos )) < 0 )
  3459. break;
  3460. if ( (ret = item_get_fr( pathItem, fpos, frm )) == 0 )
  3461. {
  3462. if ( frm[0] <= frmchk[2] && frm[2] >= frmchk[0]
  3463. && frm[1] <= frmchk[3] && frm[3] >= frmchk[1] )
  3464. return (0);
  3465. }
  3466. }
  3467. } else
  3468. {
  3469. while ( (fpos = ITM_GetPhysclNextFPos( pathItem, fpos )) > 0 )
  3470. {
  3471. if ( ITM_GetStair( pathItem, fpos ) == 0 )
  3472. {
  3473. if ( (ret = item_get_fr( pathItem, fpos, frm )) == 0 )
  3474. {
  3475. if ( frm[0] <= frmchk[2] && frm[2] >= frmchk[0]
  3476. && frm[1] <= frmchk[3] && frm[3] >= frmchk[1] )
  3477. return (0);
  3478. }
  3479. }
  3480. }
  3481. }
  3482. return (1);
  3483. }
  3484.  
  3485. int item_get_fr( char *pathItem, int fpos, short *fr )
  3486. {
  3487. int ret;
  3488. int nextFPos;
  3489. int etyNum;
  3490. short icnNum;
  3491. char ttlStr[128], pathStr[128], paraStr[128];
  3492. int atrInf;
  3493. # 156 "item.c"
  3494. ret = ITM_GetItmType(pathItem,fpos);
  3495. # 160 "item.c"
  3496. switch ( ret )
  3497. {
  3498. case 1:
  3499. ITM_GetGrpData(pathItem,fpos,&etyNum,&icnNum,ttlStr,&nextFPos,fr);
  3500. # 167 "item.c"
  3501. break;
  3502. case 2:
  3503. ITM_GetAplData(pathItem,fpos,&icnNum,ttlStr,pathStr,paraStr,atrInf,fr);
  3504. # 173 "item.c"
  3505. break;
  3506. case 3:
  3507. return (-1);
  3508.  
  3509. default:
  3510. return (-1);
  3511. }
  3512. return (0);
  3513. }
  3514.  
  3515. int item_adjust_pos( short *newfrm )
  3516. {
  3517. if ( newfrm[2] > 621 )
  3518. {
  3519. newfrm[2] = 621;
  3520. newfrm[0] = newfrm[2] - 24;
  3521. }
  3522. if ( newfrm[3] > 410 )
  3523. {
  3524. newfrm[3] = 410;
  3525. newfrm[1] = newfrm[3] - 24;
  3526. }
  3527. return ((0));
  3528. }
  3529.